I 


ELECTE 

JAN021930 


STABILITY  CHARACTERISTICS 
OF  A  COMBAT  AIRCRAFT 
WITH  CONTROL  SURFACE  FAILURE 
Thesis 

Captain  Stephen  M.  Zaiser 
AFIT/GAI^NY/89D-42 


departmenY  of  the  air  force 

AIR  UNIVERSITY 

AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 


w  righf-Patterson  Air  Force  Base,  Ohio 


ApproT»d  for  public  riitca 
Diatributlaa  UDllailtAd 


89  12  29  040 


Ahi  i.uAE,  E>'i,SVO-42 


STABILITY  CHARACTERISTICS 
OF  A  COMBAT  AIRCRAFT 
WITH  CONTROL  SURFACE  FAILURE 
Thesis 

Captain  Stephen  M.  Zaiser 
AFIT/GAE/ENY/89D-42 


Approved  for  Public  Release;  Distribution  unlimited 


DTIC 

ELECTE j 
JAN0  2]990| 


STABILITY  CHARACTERISTICS 
OF  A  COMBAT  AIRCRAFT 
WITH  CONTROL  SURFACE  FAILURE 

Thesis 

Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
Air  University 

Partial  Fulfillment  of  the  Requirements  for  the  Degree  of 
Master  of  Science  in  Aeronautical  Engineering 

By 

Stephen  M.  Zaiser,  B.S. 

Captain,  USAF 

November,  1989 

Approved  for  Public  Release;  Distribution  unlimited 


Performing  the  work  associated  with  this  thesis  has  been  one  of  those  life  experiences  that  rein¬ 
forces  in  my  mind  the  fact  that  many  people  have  had  a  part  in  helping  me  to  be  where  I  am  today.  As  I 
look  back  there  is  a  long  unbroken  line;  I  have  been  very  blessed.  Words  on  a  piece  of  paper  are  small 
thanks  for  the  contributions  the  people  acknowledged  on  this  page  and  a  host  of  those  who  will  go  un¬ 
named  have  made  to  this  thesis  and  my  life. 

To  my  committee.  Many  thanks  to  Major  Lannie  Hudson  who  provided  the  initial  kick  in  the 
pants  that  I  needed  to  get  off  and  running  and  who  toiled  with  almost  endless  patience  to  help  me  un¬ 
derstand  what  I  should  have  known  already.  Major  Hudson  also  provided  most  of  the  FORTRAN 
code  that  went  into  developing  the  curve  fitting  routines.  Thanks.  To  Captain  Curt  Mracek,  you 
helped  me  to  remember  the  important  things,  like  when  you  push  forward  on  the  stick  the  nose  should 
go  down!  I  have  appreciated  your  inputs  and  timely  support.  Captain  Brett  Ridgely,  thank  you  for  the 
insights  you  have  given  both  as  one  of  my  instructors  and  a  committee  member. 

To  my  Advisor.  Dr  Spenny,  thank  you  for  taking  an  active  interest  in  this  problem  and  en¬ 
couraging  me  at  some  very  key  times.  I  will  always  carry  fond  memories  of  our  lengthy  "debates”  over 
Euler  angles  and  other  issues  related  to  this  project.  By  the  way,  I  still  owe  you  one!  Please  accept  my 
very  genuine  thanks. 

To  Don  and  Caron  Ward.  Don  and  Caron,  you  took  an  assortment  of  text  Gles,  plot  files, 
scrap  paper,  and  not  a  few  odd  ideas  and  transformed  them  into  a  thesis.  Thank  you  for  a  labor  of  love 
and  for  a  freindship  that  I  treasure. 


□  □ 


To  Jim  and  Marilyn  Zaiser  (ie  Mom  and  Dad).  Mom  and  Dad,  you  have  taught  me  most  of 
what  I  hold  to  be  dear  and  important.  Your  encouragement,  support,  love,  and  just  who  you  both  arc 
have  been  a  well  spring  in  my  life.  I  love  you. 

And  finally,  I  express  my  deepest  gratitude  to  Jesus  Christ  to  whom  I  owe  my  very  life.  Sola 
Deo  Gloria! 

Stephen  M.  Zaiser 


Hi 


Acknowledgements 
Table  of  Contents 
List  of  Figures 
List  of  Tables 
List  of  Symbols 
Abstract 

1.  INTRODUCTION 

Problem  Definition 
Previous  Work 
Purpose 
Approach 
Presentation 

U  DATA  PREPARATION 
Introduction 
Aircraft  Description 
Sign  Convention 
F-16  Wind  Tunnel  Data 
Aerodynamic  Forces 
Force  and  Moment  Coefficients 
Aircraft  Control  Derivatives 
Lateral  Bias 


Iv 


Summary  17 

III  COUPLING  OF  AERODYNAMIC  DERIVATIVES  18 

Introduction  18 

Aircraft  Stability  Derivatives  19 

Aircraft  Control  Derivatives  21 

Summary  28 

IV  PROBLEM  FORMULATION  29 

Introduction  29 

Problem  Scope  29 

Control  Schemes  30 

Problem  Set-up  32 

Solving  the  Trim  Problem  35 

Computer  Codes  37 

Matrix  Decomposition  Techniques  40 

Summary  42 

V  INVESTIGATION  RESULTS  44 

Introduction  44 

Trim  Availability  44 

Further  Insight  into  the  Trim  Problem  58 

Summary  61 

VI  CONCLUSIONS  AND  RECOMMENDATIONS  63 

Coupling  Effects  63 

Equilibrium  Evaluations  64 

Recommendations  65 

APPENDIX  A  LEAST  SQUARES  CURVE  FITTING  67 

APPENDIX  B  POLYFTTB  FORTRAN  CODE  72 


V 


APPENDIX  C  POLYNOMIAL  EQUATIONS  82 

APPENDIX  D  DEVELOPMENT  OF  EQUATIONS  FOR  TRIM  SURVEYS  85 
APPENDIX  E  AERODYNAMIC  COEFHCIENTS  100 

APPENDIX  F  EQUILIBRIUM  REGIONS  CODE  112 

BIBLIOGRAPHY  129 

VITA  i30 


Vi 


8 


List  of  Figures 

Figure  1 F-16  Control  Surfaces 

Figure  2  Lift  Coefficient  -vs-  a  13 

Figure  3  Contours  of  Constant  Lift  Coefficient  14 

Figure  4  Contours  of  Coi^siaot  Cn  16 

Figure  5  Contours  of  Cd  19 

Figure  6  Contours  of  Constant  Cn  20 

Figure  7  Contours  of  Constant  Cl  20 

Figure  8  Pitch  RHT  q  =  300  23 

Figure  9  Pitch  RFL  q  =  300  23 

Figure  10  Normal  RFL  q  =  300  23 

figure  11  Normal  RHT  q  ==  300  23 

Figure  12  Yaw  Rudder  q  =  300  24 

Figure  13  Yaw  RFL  q  =  300  24 

figure  14  Yaw  RHT  q  =  300  ,  24 

Figure  15  Side  RLEF  q  =  300  26 

Figure  16  Side  LLEF  q  =  300  26 

figure  17  Side  Rudder  q  =  300  26 

Figure  18  Side  RHT  q  =  300  26 

Figure  19  Roll  Rudder  q  =  300  27 

figure  20  Roll  RFL  q  =  300  27 

Figure  21  RoU  RHT  q  =  300  27 

Figure  22  F-16  Body  and  Stability  Axis  Systems  33 

Figure  23  Autrim  Flowchart  37 


vii 


47 


Figure  24  Equilibrium  Regions  for  Flight  Condition  II 

Figure  ^  Equilibrium  Regions  for  Flight  Condition  II  48 

Figm .  J)  Equilibrium  Regions  for  Flight  Condition  II  49 

Figure  21  Equilibrium  Regions  for  Flight  Condition  I  51 

Figure  28  Aircraft  Characteristics  for  Flight  Condition  II  54 

Figure  29  Aircraft  Characteristics  for  Flight  Condition  II  55 

Figure  30  Aircraft  Characteristics  for  Flight  Condition  II  56 

Figure  31  Aircraft  Characteristics  for  Flight  Condition  II  57 

Figure  32  Body  and  Stability  Axis  Systems  86 

Figure  33  Normalized  Roll  Derivatives  100 

Figiue  34  Normalized  Roll  Derivatives  101 

Figure  35  Normalized  Normal  Derivatives  102 

Figure  36  Normalized  Normal  Derivatives  103 

Figure  37  Normalized  Pitch  Derivatives  104 

Figure  38  Normalized  Pitch  Derivatives  105 

Figure  39  Normalized  Side  Derivatives  106 

Figure  40  Normalized  Side  Derivatives  107 

Figure  41  Normalized  Yaw  Derivatives  108 

Figure  42  Normalized  Yaw  Derivatives  109 

Figure  43  Lxingitudinal  Coefficients  110 

Figure  44  Lateral  Coefficients  111 


viil 


List  of  Tables 

Tabic  1  F-16  Reference  Data  11 

Table  2.  Control  Schemes  31 

Table  3  Flight  Conditions  34 

Table  4  Control  Surface  Deflection  Limits  39 

Table  5  Problem  Constraints  44 

Table  6  Maximum  T rimable  Rudder  Failure  45 

Table  7  Maximum  Rudder  Failure  for  =  0  45 

Table  8  Areas  of  Equilibrium  Regions  Rudder  =  0  52 

Table  9  Areas  of  the  Equilibrium  Regions  Rudder  =  -10  52 

Table  10  Areas  of  the  Equilibrium  Regions  Rudder  =  -25  52 

Table  11  Investigation  Points  58 

Table  12  Null  Vectors  at  Points  1  and  2  60 

Table  13  Null  Vectors  at  Points  3  and  4  61 


lx 


or  Angle  of  Attack 

AOA  Angle  of  Attack 
^  Side  Slip  Angie 

<5  Control  Surface  Deflection 
9  Pitch  Angle 

<P  Roll  Angle 

Heading  Angle 
y  Flight  Path  Angle 

c  Aerodynamic  Chord 

MAC  Mean  Aerodynamic  Chord 
S  Reference  Wing  Area 

b  Reference  Wing  Span 

q  Dynamic  Pressure 

V  Free  Stream  Velocity 

U  Body  X  axis  component  of  Velocity 

V  Body  Y  axis  comipoaent  of  Velocity 

W  Body  Z  axis  component  r '  Velocity 

L  Lift 

D  Drag 

V  Side  Force 

1  Rolling  Moment 

m  Pitching  Moment 

n  Yawing  Moment 


P  Roll  Rate  (Body  X  axis) 

Q  Pitch  Rate  (Body  Y  axis) 

R  Yaw  Rate  (Body  Z  axis) 

X  Body  X  axis  Force  Component 

Y  Body  Y  axis  Force  Component 

Z  Body  Z  axis  Force  Component 

P  Linear  Momentum  Vector 

H  Angular  Momentum  Vector 

^  Inertial  Dyad 

LEF  Leading  Edge  Flaps 

LLE  Left  Leading  Edge  Flap 

RLE  Right  Leading  Edge  Flap 

LFL  Left  Flaperon 

RFL  Right  Flaperon 

LHT  Left  Horizontal  Tail 

RHT  Right  Horizontal  Tail 

RUD  Rudder 

TEU  Trailing  Edge  Up 

TED  Trailing  Edge  Down 

GW  Aircraft  Gross  Weight 

KEAS  Knots  Equivalent  Air  Speed 

M  Mach  Number 

gc  Gravitational  Constant 

Cl  Lift  Coeficient 

Cd  Drag  Coeficient 

Cy  Side  Force  Coeficient 


Ci  Rolling  Moment  Coeficient 

Cm  Pitching  Moment  Coeficient 

Cn  Yawing  Moment  Coeficient 


xil 


ABSTRACT 

In  this  thesis,  an  investigation  of  the  stability  characteristics  of  an  aircraft  which  has  sustained 
damage  to  a  primary  control  surface  was  performed.  The  analysis  was  performed  using  wind  tunnel 
data  taken  on  an  F-16  model  in  a  test<conducted  by  Turhal  [12]:  The  coupled,  non-linear,  aircraft  equi¬ 
librium  equations  for  constant  altitude,  rectilinear  flight  were  derived.  The  aircraft  stability  and  con¬ 
trol  derivatives  were  developed  and  analyzed  to  identify  aerodynamic  coupling  with  implications  for  an 
aircraft  with  failed  control  surface(s).  Three  control  schemes  which  allow  for  progressively  greater  in¬ 
dependence  among  the  control  surfaces  were  formulated  for  use  in  the  evaluation  of  tm  aircraft  with  an 
actuator  failure  of  the  rudder.  The  investigations  were  conducted  at  two  flight  con^tioiu  repre¬ 
sentative  of  the  aircraft  at  cruise  and  landing  approach  velocities.  Regions  in  a/^  space  where  equi¬ 
librium  is  obtainable  were  investigated  to  identify  remaining  control  authority,  drag  characteristics,  and 
aircraft  orientation.  The  matrix  decomposition  techniques  of  Singular  Value  Decomposition  and  the 
Row  Reduced  Echelon  Form  of  the  augmented  matrix  were  used  to  provide  additional  insight  mto  the 
interrelationship  of  the  control  surfaces  at  different  points  within  the  deftned  trim  region. 
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STABILITY  CHARACTERISTICS  OF  A  COMBAT  AIRCRAFT  WITH 
CONTROL  SURFACE  FAILURE 
I.  INTRODUCTION 

Control.  It  is  the  essence  of  practical  aerospace  flight  and  has  long  been  recognized  as  one  of 
the  difficult  technical  challenges  to  be  addressed  as  aircraft  have  gained  improved  performance. 
Modern  high  performance  aircraft  have  many  costly  and  intricate  devices  onboard  which  have  the  sole 
purpose  of  either  enabling  the  pilot  to  maintain  control  of  the  aircraft  or  making  the  task  of  controlling 
the  aircraft  easier.  Yet  as  Rubertus  has  noted,  [11:1280],  these  systems  presuppose  the  availability  and 
functionality  of  all  the  control  surfaces  that  they  have  been  designed  to  employ.  In  the  event  that  a  con¬ 
trol  surface  is  damaged  or  lost  the  control  law  which  has  been  designed  to  make  control  of  the  aircraft 
possible  has  ceased  to  be  valid.  He  further  notes  that  up  to  20  percent  of  the  aircraft  lost  in  combat 
have  been  lost  due  to  damage  to  the  aircrafts  Flight  Control  System  (FCS). 

In  recent  years,  several  methodologies  have  been  advanced  under  the  broad  category  of 
Reconfigurable  Flight  Control  Systems  (RFCS)  to  address  the  problem  of  damage  to  or  failure  of  one 
or  more  control  surfaces.  That  is,  techniques  that  will  assess  the  location  and  nature  of  the  damage  to 
the  control  surface(s)  and  reconstruct  the  FCS  control  law  so  that  the  aircraft  can  continue  to  fly.  The 
degree  to  which  these  techniques  are  successful  obviously  has  massive  ramifications  for  aircraft  flight 
safety,  sortie  generation  in  a  combat  environment,  and  reliability  and  maintainability.  Most  important, 
of  course,  is  the  return  of  a  pilot  who  otherwise  would  have  been  lost. 

In  his  paper  'Self-Repairing  Flight  Control  Systems  Overview"  [11:1285],  Rubertus  makes  the 
following  comments, 

Analysis  must  be  performed  to  better  define  the  aircraft  characteristics  in  an  im¬ 
paired  state.  An  aircraft  with  a  jammed,  floating,  or  missing  control  surface  will  ex¬ 
hibit  stability  characteristics  different  than  a  normal  aircraft.  The  cross-coupling 
effects  are  expected  to  be  significant.  Are  the  cross-coupling  terms  (driven  to  zero  or 
into  second  and  third  order  effects  in  current  designs)  changing  sufficiently  to  be- 
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come  first  order  effects?  Neither  current  models  nor  wind  tunnel  data  define  what 
these  effects  are.  Until  the  effects  aie  better  defined,  understood,  a"'*  iauud^J  in  the 
analyses,  the  full  impact  of  control  reconfiguration  will  not  be  known. 

The  object  of  this  thesis  is  to  provide  a  greater  understanding  of  the  stability  characteristics  of 

an  aircrtJt  with  damaged  couU'o!  surfaces. 


Problem  Definition 

In  the  event  that  a  control  surface  is  damaged  or  becomes  inoperable  several  negative  effects 
might  be  encountered.  First,  the  FCS  has  lost  the  use  of  the  control  power  of  the  failed  surface  to  effect 
control  over  the  attitude  of  the  aircraft.  For  example,  in  the  event  that  the  right  aileron  is  lost  the  pilot 
now  has  only  half  of  the  authority  to  perform  a  rolling  maneuver  that  was  present  before  the  failure.  A 
second  effect  is  the  introduction  of  coupling  effects  between  the  longitudinal  and  lateral  modes  of  the 
aircrafts  motion.  The  loss  of  half  of  the  horizontal  tail,  for  instance,  would  have  the  result  that  when 
the  pilot  commanded  a  pitching  moment,  the  aircra'i  would  also  experience  unwanted,  and  unex¬ 
pected,  yawing  and  rolling  moments  and  possibly  side  force.  Thus,  not  only  has  the  pilot's  maneuvering 
ability  been  reduced,  perhaps  substantially,  but  also  the  introduction  of  coupling  makes  it  necessary  for 
him  to  fly  an  aircraft  with  which  he  is  unfamiliar.  And  of  course  in  a  combat  environment  all  this  may 
be  occurring  at  a  time  when  his  attention  is  required  for  other  tasks  [8:3]. 

There  is  yet  a  third  effect  that  becomes  most  prominent  in  the  event  of  a  control  surface  ac¬ 
tuator  failure  that  results  in  the  control  surface  being  locked  into  a  position  other  than  zero.  The  "har- 
dover”  failure  of  a  control  surface  not  only  introduces  the  complications  already  noted  but  it  also 
generates  substantial  forces  and  moments  which  must  now  be  overcome  by  the  remaining  "healthy"  sur¬ 
faces  in  order  to  prevent  departure  of  the  aircraft.  The  question  arises  quite  naturally  that,  given  a 
prescribed  failure,  is  it  possible  to  maintain  the  aircraft  in  an  equilibrium  or  trimmed  state?  This  thesis 
seeks  to  address  that  question,  to  provide  a  better  understanding  of  the  nature  of  the  problem  and  the 
means  available  for  addressing  it. 
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Raza,  [8],  investigated  techniques  for  modifying  the  control  laws  to  compensate  for  the  failure 
of  either  a  flaperon  or  a  horizontal  tail  element.  His  linear  model  employed  the  use  of  constant  coeffi¬ 
cient  control  derivatives.  His  model  assumed  that  only  small  perturbations  away  from  the  nominal  trim 
condition  would  occur  as  a  result  of  the  control  surface  failure.  Although  limited  to  small  deflections 
the  analysis  did  incorporate  the  coupling  of  the  longitudinal  and  lateral  modes  and  the  introduction  of 
perturbation  forces  and  moments  by  the  failed  surface.  Reconfigurable  Flight  Control  techniques  were 
investigated  using  the  AFTI  F-16  as  an  aircraft  model  by  Eslinger  [1].  Eslinger  investigated  a  failure  of 
the  aircrafts  right  horizontal  tail  such  that  the  tail  was  left  free  floating  in  the  airstream.  As  he  notes, 
[1,4]  the  failed  control  surface  in  this  case  does  not  generate  undesirable  forces  and  moments. 
Eslinger’s  aircraft  model  utilized  constant  aerodynamic  derivatives  at  the  selected  flight  conditions. 
Weiss  et  al,  [13],  investigated  a  technique  for  automatically  trimming  an  aircraft  where  the  failure  of 
the  control  surface  is  treated  as  the  mtroduction  of  a  disturbance  away  from  the  nominal  trim  condi¬ 
tion.  Their  paper  contains  a  rigorous  definition  of  the  linear  trim  problem  [13:402].  Although  the 
analysis  they  present  deals  with  the  runaway  trim  of  the  aircraft  stabilator  they  point  out  that  the 
failure  of  the  rudder  represents  the  most  difficult  single  control  surface  failure  to  be  addressed, 
[13,405]. 

In  1986,  Turhal,  [12],  conducted  wind  tunnel  tests  to  investigate  the  effect  of  various  types  of 
control  surface  failures  on  an  airaafts  aerodynamic  stability  derivatives.  The  tests  were  conducted  in 
the  AFTT  five  foot  wind  tunnel  ming  a  one-twentieth  scale  model  of  a  F-16.  Three  configurations  of 
the  model  were  tested,  with  each  configuration  representing  a  potential  failure  mode. 

The  data  collected  by  Turhal  has  several  interesting  features.  One  feature  of  interest  is  that 
the  data  includes  information  regarding  the  coupling  of  the  aerodynamic  stability  derivatives  as  the 
aircraft  is  placed  in  an  unsymmetric  orientation;  P  nonzero.  Secondly,  the  force  and  moment  coeffi- 


cients  are  recorded  for  the  deflection  oi  a  single  control  surface.  For  example,  the  flaperons  are  usual¬ 
ly  deployed  asymmetrically  as  ailerons  an  ,  the  rolling  moment  for  the  total  aileron  would  be  recorded. 
Simply  recording  the  data  for  total  aileron  might  mask  the  presence  of  coupling  that  is  of  interest  when 
the  surfaces  are  deployed  independently.  In  Turhal’s  tests,  the  effect  of  sideslip  angle  and  Angle  of  At¬ 
tack  (AOA)  on  the  right  flaperon,  for  instance,  is  imbedded  in  the  data  recorded  in  the  tests.  Conse¬ 
quently,  the  control  derivatives  developed  for  use  m  the  present  thesis  will  be  functions  of  AOA  and 
sideslip  angle  rather  then  constants  developed  for  the  aircraft  at  a  specified  trim  condition. 

At  the  conclusion  of  his  thesis,  Turhal  made  several  recommendations  for  follow-on  work 
based  on  the  test  data  that  he  had  recorded,  [12:62].  First,  he  stated  that  the  optimization  studies  per¬ 
formed  to  find  trim  conditions  for  the  "damaged"aircraft  had  yielded  unsatisfactory  results.  He  postu¬ 
lated  that  the  problem  may  have  been  related  to  the  curve  fitting  that  formed  on  the  wind  tunnel  data. 
Second,  he  suggested  that  other  means  of  investigating  "optimum"  trim  conditions  be  explored.  Third, 
he  recommended  that  a  more  comprehensive  study  of  the  data  should  be  performed  numerically  to 
identify  any  significant  phenomena  which  might  be  present. 


Purpose 

This  research  will  encompass  a  thorough  investigation  of  the  stability  characteristics  of  an 
aircraft  which  has  sustained  damage  to  a  primary  control  surface.  The  presence  of  significant 
aerodynamic  coupling  will  be  identified  and  the  interrelationship  of  the  aircraft  control  derivatives, 
which  are  developed  as  functions  of  Angle  of  Attack  (a)  and  sideslip  angle  (fi),  will  be  examined.  As  a 
means  of  gaining  insight  into  the  nature  of  the  damaged  aircraft  the  following  questions  will  be  ad¬ 
dressed: 

A:  For  a  stated  flight  condition  and  control  surface  failure,  can  a  state  of  equilibrium  be 
achieved  using  the  remaining  functional  surfaces? 
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B:  If  equilibrium  is  achievable,  how  large  is  the  region  in  a/^  space  in  which  equilibrium  may 


be  obtained?  Questions  regarding  the  orientation  of  the  aircraft  and  the  use  of  available  control 
authority  to  achieve  this  state  will  also  be  addressed. 

C:  Will  the  use  of  more  advanced  control  schemes,  i.e.  allowing  the  control  surfaces  currently 
on  the  aircraft  to  act  with  greater  independence,  significantly  augment  the  equilibrium  region  and/or 
improve  other  aircraft  characteristics  with-in  this  space? 


Approach 

To  accomplish  the  stated  purposes  of  this  thesis  several  specific  tasks  are  accomplished  and 
represent  the  major  sections  of  the  thesis.  The  data  collected  by  Turhal  is  placed  in  to  a  functional 
form  that  can  be  used  to  perform  the  desired  analysis.  In  general,  these  functional  representations  of 
the  force  and  moment  coefficients  are  nonlinear  in  a  and^,  and  so  the  restriction  of  constant  coeffi* 
dents  is  not  a  limitation  imposed  on  the  analysis  performed  in  this  thesis.  Contour  plots  of  the  basic 
aerodynamic  coeffidents  are  constructed  to  identify  any  significant  aerodynamic  coupling  which  might 
impact  the  trim  investigations.  The  relative  authority  of  each  control  surface  for  each  force  and  mo¬ 
ment  is  also  examined  to  identify  the  significance  of  each  surface  for  achieving  trim  and  for  answering 
the  question  of  i^ether  the  relative  importance  of  the  surfaces  changes  at  different  points  in  a//3  .space 

An  actuator  failure  of  the  rudder  is  assumed  to  represent  the  most  significant  single  primary 
control  surface  failure.  This  assumption  is  consistent  with  the  findings  of  Weiss  [13:405].  This  failure 
mode  is  investigated  at  two  flight  conditions  which  are  deemed  to  be  representative  of  two  phases  of 
the  aircrafts  flight  profile.  The  equilibrium  equations  for  constant  altitude,  rectilinear  flight  are  solved 
to  identify  points  in  a//3  space  where  an  equilibrium  state  is  achievable  for  a  specified  degree  of  rudder 
failure.  Three  different  control  schemes  of  increasing  complexity  are  employed  to  investigate  how  sig¬ 
nificantly  the  equilibrium  region  can  be  altered  by  employing  greater  degrees  of  freedom  in  the  use  of 
the  available  control  surfaces. 
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Two  math  techniques  are  used  to  provide  a  greater  insight  into  the  nature  of  the  problem 
being  addressed.  Singular  Value  Decomposition  (SVD)  and  the  Row  Reduced  Echelon  Form  (RREF) 
are  used  to  analyze  the  problem.  Restructui  ing  the  problem  via  these  techniqu'^s  provides  useful  infor¬ 
mation  regarding  not  only  the  null  space  of  the  problem,  but  also  illuminates  the  interaction  of  the 
various  control  surfaces  in  achieving  a  solution  to  the  equilibrium  problem. 


Presentation 

The  analysis  performed  in  this  thesis  is  presented  in  the  following  chapters.  Chapter  II  details 
the  techniques  used  to  transform  the  data  collected  by  Turhal  into  polynomial  functions  which  can  be 
used  for  the  equilibrium  analysis.  Observed  aerodynamic  coupling  of  the  control  and  aircraft  stability 
derivatives  is  detailed  in  Chapter  m.  The  relative  significance  of  the  control  surfaces  is  also  discussed 
in  this  chapter.  Chapter  IV  outlines  the  formulation  of  the  nonlinear  equations  of  motion  into  the  form 
that  is  used  to  identify  the  regions  of  equilibrium  for  control  surface  failure.  The  results  of  this  analysis 
are  presented  and  discussed  in  Chapter  V  and  Chapter  VI  outlines  a  summary  of  the  results  of  this  re¬ 
search  and  recommendations  for  further  study. 
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Introduction 


The  analysis  performed  in  this  thesis  is  based  on  wind  tunnel  data  collected  by  Turhal,  [12], 
for  a  Master’s  thesis  in  1986.  The  data  preparation  phase  of  the  current  research  involved  the  forma¬ 
tion  of  functional  representations  of  the  stability  derivative  data  collected  in  Turhal’s  wind  tunnel  work. 
A  least  squares  curve  fitting  technique  was  used  to  develop  polynomial  functions  which  describe  the 
aircraft  stability  derivatives.  Since  the  equilibrium  analysis  was  a  static  analysis  the  dynamic  derivatives 
of  the  aircraft  were  not  estimated.  In  this  chapter  a  short  description  of  the  F-16  is  given  along  with  a 
brief  discussion  of  the  tests  conducted  by  Turhal.  The  functional  form  of  the  equations  used  to 
describe  the  aircraft  stability  derivatives  and  the  techniques  used  to  develop  them  are  also  discussed. 


Aircraft  PeS' 
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The  F-16  is  a  single  engine,  low  aspect  ratio,  fighter  aircraft  currently  in  the  inventory  of  the 
USAF.  There  are  seven  control  surfaces  located  on  the  aircraft  which  are  of  interest  for  the  studies  to 
be  performed  in  this  thesis:  right  and  left  Leading  Edge  Flaps  (LEFs),  right  and  left  Flaperons,  right 
and  left  Horizontal  Tails,  and  the  rudder.  The  follovring  paragraphs  provide  a  short  discussion  of  these 
control  surfaces  and  their  significance  for  the  trim  study.  The  location  of  each  of  the  control  surfaces 
may  be  identified  by  referring  to  Figure  1.  A  detailed  discussion  of  the  F-16  may  be  found  in  the  open 
literature  b  Jane’s,  [4:345]. 

Leading  Edge  Flaps  (see  following  page):  The  LEFs  primary  function  is  to  vary  the  camber  of 
the  wing;  causing  the  lift  curve  to  slide  to  the  right  as  they  are  deployed.  The  net  effect  of  this  is  to 
cause  Clouk  to  occur  at  higher  AOA  then  would  be  experienced  by  the  clean  wing. 
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The  LEFs  are  designed  to  deploy  in  a  symmetric  fashion  and  their  deflection  is  scheduled  as  a  function 
of  AOA  and  Mach  number.  It  should  be  noted  that  the  pilot  does  not  exercise  direct  control  over  the 
LEFs  and  so,  as  they  are  employed  on  the  current  aircraft,  the}  are  not  truly  a  control  surface. 


Flaperons:  When  deployed  as  flaps  the  flaperons  provide  direct  lift  to  the  aircraft  and  also 
some  pitching  moment.  For  control  purposes,  however,  the  pilot’s  stick  can  only  command  the 
flaperons  to  deflect  asymmetrically  or  as  ailerons.  The  flaperons  therefore  are  the  primary  means  by 
which  rolling  moment  is  applied  to  the  aircraft  to  execute  banking  maneuvers. 

Horizontal  Tails;  The  horizontal  tails,  on  the  other  hand,  can  be  employed  via  the  pilot’s  stick 
in  two  fashions.  If  the  differential  tails  are  deployed  symmetrically  they  act  as  an  elevator  and  are  used 
to  exert  pitching  moment  on  the  aircraft.  The  tails  can  also  be  deployed  in  an  asymmetric  manner  to 
augment  the  rolling  moment  generated  by  the  flaperons.  Simply  stated,  pulling  back  on  the  control 
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stick  will  result  in  the  symmetric  deflection  of  the  horizontal  tails  and  will  pitch  the  nose  of  the  aircraft 
up.  Pushing  the  stick  to  the  side  will  result  in  asymmetric  deflection  of  the  flaperons  and  tails  resulting 
in  a  rolling  maneuver  about  the  axis  of  the  aircraft. 

Rudder  (see  previous  page):  The  rudder  is  employed  in  the  same  fashion  as  on  a  conventional 
aircraft  and  is  the  primary  control  surface  available  for  yawing  the  aircraft. 


Sion  Convention 

The  following  sign  convention  is  adopted  for  use  in  this  thesis; 

1.  For  the  flaperons  and  the  horizontal  tails  positive  deflection  is  defmed  Trailing  Edge  Down 

(TED). 

2.  For  the  leading  edge  flaps  positive  deflection  is  defined  to  be  Leading  Edge  Down  (LED). 

3.  Positive  deflection  of  the  rudder  will  be  defined  as  deflection  of  the  rudder  toward  the  left 
side  of  the  aircraft,  looking  forward  (port) 

4.  Positive  sideslip  angle, /9,  is  defined  for  the  free  stream  velocity  vector  approaching  from 
the  right  side  of  the  aircraft  nose,  looking  forward  (starboard) 

5.  All  the  aircraft  control  and  aerodynamic  coefficients  are  recorded  in  the  aircraft  Stability 
axis  system. 


F-16Wlnd  •Hjnnel  Data 

In  1986  Turhal,  [12],  conducted  wind  tunnel  tests  to  investigate  the  effect  of  various  types  of 
control  surface  failures  on  an  aircrafts  aerodynamic  coefficients.  The  tests  were  conducted  in  the 
AFTT  five  foot  wind  tunnel  using  a  one  twentieth  scale  model  of  a  F-16A.  All  of  the  tests  were  con- 
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ducted  at  low  speeds,  holding  Mach  number  at  approximately  0.118  and  dynamic  pressure  at  20  pounds 
per  square  foot.  For  a  detailed  discussion  of  the  experimental  procedure  used  in  recording  the  test 
data  see  [12:25-34] 

Three  conflgmations  of  the  model  were  tested,  with  each  configuration  representing  a  poten¬ 
tial  failure  mode.  The  first  configuration  had  all  the  control  surfaces  but  one  fixed  at  a  zero  deflection 
angle.  The  remaining  control  surface  was  then  placed  at  a  specified  deflection  and  the  resulting  forces 
and  moments  were  recorded.  In  the  second  configuration,  the  left  flaperon  was  allowed  to  float  free. 
The  remaining  surfaces  were  then  cycled  through  their  deflection  ranges.  As  in  the  first  configuration, 
only  one  control  surface  was  deflected  at  a  time.  The  final  configuration,  had  the  left  flaperon  removed 
from  the  model  entirely.  As  in  the  prior  tests,  the  effects  of  the  deflection  of  the  remaining  control  sur¬ 
faces  on  the  forces  and  moments  was  then  observed.  The  aerdynamic  coefficients  calculated  by  the 
wind  tunnel  data  reduction  program  were  recorded  in  the  Stability  Axis  system. 

For  each  of  the  configurations  noted  above  the  wind  tunnel  data  has  been  placed  into  data 
sets.  The  "zero"  case  represents  the  data  collected  when  the  models  controls  were  all  set  at  zero  deflec¬ 
tion  and  the  model  was  placed  at  various  angles  of  attack  and  side  slip  angles.  The  same  procedure 
was  used  to  develop  data  sets  for  the  right  and  left  leading  edge  flaps,  the  right  flaperon,  the  right 
horizontal  tail,  and  the  rudder.  For  the  configurations  where  the  left  flaperon  was  floating  free  or  miss¬ 
ing  a  data  set  was  also  developed  for  the  left  horizontal  taiL 


Aerodynamic  Forces 

The  data  which  is  output  by  the  wind  ttmnei  data  reduction  program  are  the  total  aircraft  force 
and  moment  coeflSdents.  These  coefficients  are  a  non-dimensional  representation  of  the  forces  and 
moments  experienced  by  the  aircraft  at  given  a  AOA  and  side  slip  angle.  The  aerodynamic  coefficients 
may  be  converted  into  forces  and  moments  in  the  aircraft  Stability  axis  system  via  the  following  relation¬ 
ship: 
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(2.1) 

(2.2) 

=  C^qS 

(2.3) 

qSb 

(2.4) 

Kg  =  Cjj  qS^ 

(2.5) 

qSb 

(2.6) 

The  appropriate  reference  data  for  the  full  scale  aircraft  is  given  in  [12:27],  and  is  represented 


Table  1  F-16  Reference  Data 


Wing  Area  S  300  Sq  Ft 

Span  b  29ft 

MAC  C  10.94ft 

Cg  Q)  0,35MAC 


here  m  Table  1.  By  necessity,  the  data  collected  in  the  wind  tunnel  is  taken  at  a  finite  number  of  dis¬ 
crete  data  points.  Turhal’s  wind  tunnel  data,  in  general,  is  a  function  of  three  variables;  that  is,  the 
force  and  moment  coefficients  are  recorded  for  a  specific  setting  of  angle  of  attack,  sideslip  angle,  and 
single  control  surface  deflection.  Since  the  analysis  performed  in  this  research  will  require  data  at 
points  other  than  those  pomts  at  which  experimental  data  was  collected  some  functional  representation 


11 


of  the  data  is  required.  A  polynomial  is  selected  as  the  functional  form  which  will  be  used  to  describe 
the  data.  Each  aircraft  force  or  moment  coefficient  may  then  be  described  with  a  polynomial  of  the  fol¬ 
lowing  form: 


J  I 

E  L 

j=o  i=0 


7 

+  E 

^=1 


K  ir 
E  E 

ia=0  n=0 


B 


n  7) 


Note  that  in  general  the  polynomial  will  be  nonlinear  but  that  6  will  always  be  held  to  a  first 

power. 


Force  and  Moment  Coefficients 

Turhal’s  test  included  recording  force  and  moment  coefficients  where  all  of  the  control  sur¬ 
faces  were  held  at  zero  deflection  and  a  and  were  varied.  Equation  (2.7)  shows  that  the  polynomial 
used  to  predict  the  total  force  or  moment  coefficient  is  composed  of  two  summation  terms.  The  first  of 
these  represents  the  coefficient  strictly  as  a  function  of  a  and/9  and  should  describe  the  wind  tunnel 
data  taken  when  all  of  the  control  surfaces  were  held  at  zero.  The  coefficients,  Aij ,  associated  with 
each  polynomial  term  were  obtained  by  performing  a  least  squares  curve  fit  on  this  'zero”  case  data.  A 
short  discussion  of  Che  theory  and  mathematics  involved  in  the  least  squares  curve  fitting  technique  may 
be  found  by  referring  to  Appendix  A. 

To  accomplish  the  three  dimensional  curve  fitting  of  the  wind  tunnel  data  a  FORTRAN  com¬ 
puter  code,  POLYFTTA,  was  written  which  will  read  in  the  data  files  compiled  by  Turhal,  request  the 
order  of  the  polynomial  and  perform  the  curve  fit.  Appendix  B  contains  the  FORTRAN  codes  used  to 
accomplish  the  curve  fits.  Two  measures  of  the  'goodness'  of  the  selected  polynomials  fit  of  the  data 
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were  employed  to  determine  the  suitability  of  the  polynomial  for  use  in  the  future  analysis.  The  first 
measure  of  the  accuracy  of  the  fit  was  the  calculation  of  correlation  coefficient,  r^,  for  each  fit  of  the 
data. 


npts 

E 

k=l 


=  1  - 


-  c. 


exp 


anal. 


npts 

E 

k=l 


f 


-  C. 


■expj^ 


mean 


(2.8) 


This  measure  of  merit  provided  a  means  for  estimating  how  well  the  polynomial  fit  captured 
the  variation  in  the  experimental  data.  It  is  possible,  through  the  use  of  a  polynomial  of  high  enough 
order,  to  obtain  a  curve  fit  which  will  pass  through  each  data  point.  This  polynomial  will  accurately 
predict  the  value  of  the  data  at  the  point  at  which  the  data  was  collected  but  its  behavior  between 
points  may  be  very  ill  behaved.  The  second  measure  of  merit  for  the  curve  fits  provides  a  means  for 
avoiding  the  selection  of  such  a  function.  Primarily  qualitative,  this  second  measured  involved  the  con¬ 
struction  of  graphs  and  contour  plots.  The  graphs,  for  example  Figure  2,  provided  a  direct  comparison 
of  the  polynomial  fit  with  the  data  collected  in  the  tunnel.  An  evaluation  of  the  curve  with  respect  to  the 
expected  behavior  of  the  force  or  moment  coefficients  could  also  be  made.  For  example,  the  lift  coeffi¬ 
cient  should  be  linear  in  a,  the  drag  a  parabolic  function  of  a  etc..  It  should  be  noted,  however,  that  a 
graph  such  as  Figure  2  requires  that  the  two  remaining  variables  be  held  constant  to  see  this  "slice”  of 
the  curve  in  the  three  dimensional  variable  space.  For  this  reason,  the  data  was  also  plotted  as  contour 
plots  so  that  the  behavior  of  the  data  as  a  function  of  two  variables  could  be  observed.  An  example  of 
such  a  contour  plot  is  Figure  3  and  a  complete  set  of  these  plots  may  be  found  in  Appendix  D. . 

The  curve  fits  of  all  the  "zero"  case  data  were  accomplished  with  the  noted  computer  codes 
and  applying  the  following  criteria. 
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Alpha 

Figure  2  Lift  Coefficient  -vs-  a 

•  l.Keep  it  accurate.  The  accuracy  of  the  curve  fits  was  established  by  trying  to  achieve 
very  high  r^  value,  .95  ^  r^  Sl.O,  and  by  evaluating  the  graphs  and  contour  plots. 

•  2.  Keep  it  simple.  To  avoid  future  numerical  problems,  and  the  undesirable  behavior 
noted  above  the  lowest  order  polynomial  which  provided  a  reasonable  level  of  accuracy 
was  selected. 


Aircraft  Control  PerlvatlYes 

The  second  summation  contained  in  equation  (2.1)  represents  the  contribution  of  all  the  con¬ 
trol  surfaces  to  the  total  force  or  moment  coefficient.  The  polynomial  associated  with  each  control  sur¬ 
face  is  in  effect  the  control  derivative  associated  with  that  surface.  The  experimental  method  employed 
for  collecting  the  derivative  data  assumed  that  the  effects  of  each  control  surface  could  be  added 
together  with  the  "zero”  case  to  obtain  the  total  aircraft  force  or  moment  coefficient.  The  assumption 
that  the  superposition  principle  may  be  applied  is  premised  on  linear  terms  in  <3.  For  this  reason,  all  of 
the  control  derivatives  were  developed  holding  the  d  term  to  a  first  power. 
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Figure  3  Contours  of  Constant  Lift  Coefficient 
The  control  derivatives  were  assumed  to  be  of  the  form 

f  C  «  +  C  /3  +  C  1  <5 

t  ^6  J 


which  is  a  linear  equation  once  a  and  ^  have  been  specified.  To  obtain  the  coefficients  contained  in 
equation  (2.9)  the  stability  data  contained  in  the  data  sets  associated  with  the  respective  controls  was 
curve  fit  using  the  program  POLYFTTB;(sec  Appendix  B).  Here  the  effect  of  the  deflection  of  the 
specified  control  surface  is  treated  as  a  perturbation  of  the  force  or  moment  above,  or  below,  the  force 
or  moment  experienced  by  the  model  with  the  surfaces  set  to  zero.  Hence,  the  function  supplied  to 
the  least  squares  routine  for  fitting  was  the  polynomial  form  arrived  at  for  the  "zero"  case  plus  the 
terms  in  equation  (2.10).  The  coefficient  which  were  related  to  control  deflections  were  then  stripped 
off  to  become  the  descriptors  of  that  control  derivatii«.  The  r^  value  for  each  fitting  of  the  control  sur- 
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Figure  4  Contours  of  Constant  Cn 

face  data  sets  was  compared  to  a  fitting  performed  with  only  the  "zero”  case  polynomial  terms  to  insure 
that  the  effect  of  the  control  surface  was  reasonably  well  represented.  This  was  indicated  by  a  sig¬ 
nificant  rise  in  the  value  of  the  correlation  coefficient  when  the  d  terms  were  added  to  the  polynomial. 
The  control  derivative  predictor  equations  are  presented  in  Appendix  C. 


Lateral  Bias 

In  the  initial  phases  of  conducting  the  trim  analysis  it  became  evident  that  the  aircraft  was 
developing  significant  lateral  forces  and  moments  at  zero  AOA ,  zero  side  slip  angle,  and  zero  control 
deflections.  This  bias  in  the  lateral  data  may  be  seen  by  observing  Figure  4  where  the  yawing  moment 
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coefficient  does  not  take  on  a  zero  value  at  ^  and  a  equal  to  zero.  For  an  aircraft  which  is  geometrical¬ 
ly  symmetrical  about  the  X-Z  plane  of  the  aircraft  the  forces  and  moments  should  be  zero  at  this  zero 
condition,  [10:139-156].  In  light  of  this,  the  predictor  equations  for  the  aircraft  lateral  coefficients 
were  modified  to  remove  this  unresolved  bias.  The  modification  was  effected  by  setting  the  constant 
term  in  each  lateral  equation  equal  to  zero.  The  corrected  predictor  equations  are  the  ones  listed  in 
Appendix  C. 


Summary 

In  the  data  preparation  phase  of  the  thesis  the  wind  tunnel  data  generated  by  Turhal  was 
placed  into  functional  forms  for  later  use  in  the  analysis.  These  functional  representations  of  the 
aircraft  control  and  stability  derivatives  were  formed  as  polynomials  which  in  general  are  nonlinear  in  a 
and  p.  Lateral  biassing  in  the  wind  tunnel  data  was  identified  and  appropriate  changes  accomplished 
to  correct  this  anomaly. 
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Introduction 


The  polynomial  equations  developed  in  Chapter  n  to  describe  the  behavior  of  the  aircraft  con¬ 
trol  and  stability  derivatives  are  nonlinear  functions  in  a  and  Through  these  terms  coupling  may  be 
introduced  between  the  longitudinal  and  lateral  modes  of  the  aircraft.  A  longitudinal  coefficient,  such 
as  the  pitching  moment  for  instance,  may  be  found  to  have  a  significant  dependence  on  side  slip  angle. 
Further,  the  control  derivatives,  which  are  usually  treated  as  constants  for  a  given  flight  condition,  may 
in  fact  exhibit  a  dependence  on  a  and  /3  which  should  be  noted.  Coupling  as  defined  in  this  thesis  does 
not  refer  to  inertia  effects  or  the  interaction  of  the  various  control  surfaces.  In  this  research,  coupling 
refers  to  two  specific  effects.  First,  coupling  indicates  the  presence  of  stability  derivatives  which  couple 
the  effect  of  AOA  and  sideslip  angle  together.  Second  coupling  occurs  when  the  failure  of  a  control  sur¬ 
face  imparts  forces  and  moments  to  the  aircraft  which  are  not  usually  associated  with  that  surface.  As 
was  noted  in  Chapter  I,  Rubertus  makes  the  following  comments, "  ...The  cross-coupling  effects  are  ex¬ 
pected  to  be  significant.  Are  the  cross-coupling  terms  (driven  to  zero  or  into  second  and  third  order  ef¬ 
fects  m  current  designs)  changing  sufficiently  to  become  first  order  effects?  ”  This  chapter  seeks  to 
explore  this  question  and  its  attending  implications  for  the  equilibrium  analysis  addressed  in  this  thesis. 
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The  contour  plots  of  the  force  and  moment  coefficients  developed  in  Chapter  II  provided  the 
primary  means  by  which  coupling  was  identified.  A  complete  set  of  the  plots  may  be  found  in  Appen- 
dbc  E.  Note  that  there  are  two  plots  for  each  coefficient.  The  plots  labeled  "EXP"  represent  a  contour 
plot  of  the  experimental  data.  Plots  that  are  labeled  "CP  represent  plots  of  the  polynomial  fit  of  the  ex¬ 
perimental  data. 

Figure  5  represents  the  variation  of  the  drag  coefficient  as  a  function  of  a  and  /?.  Note  that  a 
function  that  is  strictly  dependent  on  a  would  result  in  contours  that  intersect  the  a  axis  perpendicular¬ 
ly.  Conversely,  a  strict  dependence  on  has  contours  which  show  no  variation  as  one  moves  along  the 

-6.00  -3.00  0.00  3.00  6  00 


Figure  5  Contours  of  Cd 


a  axis.  Note  that  while  the  drag  coefficient  exhibits  a  strong  dependence  on  a,  with  the  characteristic 
quadratic  term,  it  also  shows  a  significant  dependence  onfi.  All  of  the  longitudinal  coefficients  ex¬ 
hibited  a  similar  dependence  on^  and  both  the  polynomial  fit  and  the  plotting  routine  (SURFER) 
generated  the  same  characteristic  shape.  In  addition  to  this,  the  correlation  coefficients  developed 
for  all  the  longitudinal  data  mdicated  a  good  capture  of  the  behavior  of  the  data  and  therefor  this  cou¬ 
pling  is  assumed  to  exist. 

The  lateral  derivatives,  see  Figure  6,  exhibited  the  expected  strong  dependence  onfi.,  of  all  the 
lateral  derivatives  the  rolling  moment  coefficient  exhibited  the  strongest  a  I  coupling;  which  may  be 
observed  in  Figure  7.  Note  that  the  contours  breah  rather  sharply  at  a  given  AOA  and  for  the  aircraft 
in  an  unsymmetric  orientation. 


-6.00  -3.00  0.00  3  00  6  00 
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Figure  6  Contours  of  Constant  Cn 


Figure  7  Contours  of  Constant  Ci 
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Given  that  the  control  derivatives  are  not  constant  values,  it  is  appropriate  to  address  ques¬ 
tions  of  how  they  may  vary  as  a  function  of  AOA  and  sideslip  angle.  Also,  since  this  thesis  involves  the 
investigation  of  situations  where  a  control  surface  has  failed  it  is  also  important  to  gain  some  apprecia¬ 
tion  of  how  important  each  surface  is  relative  to  the  others  in  effecting  a  given  force  or  moment.  To  ac¬ 
complish  these  purposes  the  control  derivatives  for  the  seven  surfaces  were  calculated  at  different 
locations  in  a  /  /3  space.  As  will  be  seen  in  Chapter  IV  control  derivatives  effecting  a  given  force  can  be 
arranged  as  a  row  vector.  For  this  reason,  the  control  derivatives  were  normalized  in  a  vectorial  sense 
by  creating  a  vector  in  7  space  whose  magnitude  is  one.  The  normalization  was  accomplished  as  fol¬ 
lows.  First,  each  control  derivative  was  multiplied  by  the  maximum  deflection  available  for  that  sur- 


I.  Imax 

maa: 


All  of  these  values  were  then  squared  and  summed. 


=1-  E 
1  =  1  ^±2 


The  normalized  derivative  is  then  defmed  to  be: 


'Inom 


and  will  be  a  number  whose  magnitude  is  between  zero  and  one.  By  observing  the  relative  size  of  each 
component,  information  can  be  obtained  about  the  relative  importance  of  each  control. 

To  observe  the  variation  of  the  normalized  derivatives  as  a  function  of  a  and  y3,  contour  plots 
were  constructed  showing  lines  of  constant  values  of  the  normalized  derivatives.  Several  points  are 
worth  remembering  in  observing  these  charts,  which  may  be  found  in  Appendix  E.  First,  the  plots  do 
not  provide  information  about  the  actual  value  of  the  control  derivative  and  how  it  is  changing  with  a 
and/3.  They  indicate  how  the  relationship  of  that  surface  is  changing  relative  to  the  others  at  different 
points.  Second,  the  numbered  contours  do  not  represent  percentages  since  it  is  the  sum  of  the  squares 
of  all  the  derivatives  which  are  equal  to  unity.  Third,  when  noting  changes  that  are  occurring  to  the 
contour  lines  it  is  important  to  remember  that  all  seven  surfaces  must  be  observed  to  have  an  accurate 
understanding  of  the  changes  indicated. 

As  would  be  expected,  the  rudder  exerts  essentially  zero  influence  on  either  pitching  moment 
or  the  normal  force  coefficients.  The  horizontal  tails,  figure  8,  show  that  they  are  the  most  significant 
player  with  respect  to  pitching  moment;  with  the  primary  variation  in  the  normalized  derivative  occur¬ 
ring  as  a  function  of^.  Figure  9  indicates  that  while  the  flaperons  are  not  as  significant  an  effector  of 
pitching  moment  as  the  tails  they  do  contribute  to  the  overall  pitching  moment.  A  slight  dependence  on 
a  is  indicated  for  the  flaperons  with  in  the  range  examined.  The  LEFs  are  relatively  small  effectors. 
The  normal  force  is  most  strongly  influenced  by  the  flaperons  and  the  horizontal  tails;  see  Figures  10 
and  11. 

It  is  in  the  lateral  derivatives  that  the  most  dramatic  results  are  observed.  The  plots  for  yawing 
moment  mdicate  that  the  rudder.  Figure  12,  is  far  and  away  the  most  significant  surface  in  effecting  this 
moment.  Figures  13  and  14  illustrate  that  some  yawing  capability  is  exchanged  between  the  flaperons 
and  the  horizontal  tails  as  the  angle  of  attack  is  changed.  The  rudder  is  also  observed  to  be  the  most 
dominant  control  surface  for  introducing  side  force  into  the  aircraft;  see  Figure  17.  Figure  18  indicates 
that  the  horizontal  tails  also  are  capable  of  generating  side  force.  This  capability  can  be  accounted  for 
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by  noting  the  anhedral  in  the  horizontal  tail  which  produces  a  component  of  force  in  the  Y  direction 
when  the  horizontal  tails  are  deflected  unsymmetrically.  Another  point  of  interest  in  the  side  force 
plots  is  that  the  LEFs,  whose  influence  is  negligible  at  low  AOA,  become  more  significant  as  the  AOA 
is  increased;  see  Figures  15  and  16.  At  the  higher  AOA  the  LEFs  make  a  small,  but  notable,  contribu¬ 
tion  to  the  side  force  relative  to  the  other  surfaces.  These  plots  of  side  force  control  derivatives  estab¬ 
lish  a  very  significant  point  for  the  analysis  performed  in  this  thesis;  even  a  relatively  small  deflection  of 
the  rudder  can  not  be  "overpowered"  by  a  maximum  asymmetric  deflection  of  the  remaining  surfaces. 

Examining  the  plots  of  the  rolling  moment  control  derivative,  Figure  19,  will  show  that  not  only 
are  the  rudder  contours  almost  entirely  dependent  on  a  but  also  that  the  rolling  moment  produced  by 
deflection  of  the  rudder  changes  sign  at  12.9  degrees  AOA.  This  results  because  the  moments  are 
recorded  in  the  stability  axis  system  and  there  will  be  an  AOA  at  which  the  X  Stability  axis  will  pass 
through  the  effective  point  of  application  of  the  side  force  developed  by  the  rudder.  The  zero  moment 
arm  results  in  zero  moment  about  this  axis.  Again  the  flaperons  and  horizontal  tails  are  observed  to  be 
exchanging  relative  importance  as  effectors  of  rolling  moment.  Note  that  the  islands  for  the  flaperon 
and  horizontal  tail  plots  appear  below  and  above  the  zero  line  on  the  rudder  plot  respectively,  see 
Figures  20  and  21. 

Not  only  did  the  contour  plots  of  the  normalized  derivatives  provide  useful  information  about 
the  relative  importance  of  the  control  derivatives  but  they  also  indicated  that  an  error  had  been  made 
in  developing  the  control  derivatives  for  the  left  flaperon  and  the  left  horizontal  tail.  In  Chapter  II  it 
was  noted  that  the  wind  tunnel  tests  did  not  provide  data  for  the  left  flaperon  and  left  horizontal  tail 
and  that  it  was  assumed  that  the  data  from  the  right  surfaces  could  simply  be  reflected  across  the  X-Z 
plane.  This  was  accomplished  by  negating  the  sign  on  the  lateral  derivatives  and  assigning  the  same  lon¬ 
gitudinal  derivatives.  Note  that  the  LEFs  Figures  15  and  16  not  only  exhibit  opposite  sign  but  also  an 
opposite  slope  as  a  function  of/5.  The  change  in  slope  results  from  the  fact  that  the  right  and  left  sur¬ 
faces  react  differently  to  positive  and  negative  /9.  For  example,  the  right  leading  edge  flap  becomes 
more  effective,  relative  to  the  left  leading  edge  flap,  with  positive  since  the  right  LEF  is  now  seeing 
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"more  of  the  wind".  The  initial  method  for  creating  the  left  control  derivatives  had  missed  this  fact  and 


while  the  right  and  left  lateral  derivatives  appropriately  had  opposite  signs  they  inappropriately  ex¬ 
hibited  the  same  slope.  The  plots  contained  in  Appendix  E  and  the  control  derivatives  listed  in  Appen¬ 
dix  C  have  been  corrected  to  be  consistent  with  the  behavior  described  above. 

Summary 

In  this  chapter  the  contour  plots  of  the  aircraft  stability  derivatives  were  examined  to  identify 
coupling .  All  of  the  ion^tudinal  coefficients  exhibited  a  similar  variation  as  a  function  of  /9.  Among 
other  things,  this  will  be  shown  to  produce  a  trimmed  condition  at  a  lower  AOA  when  the  aircraft  is  in 
a  slightly  unsymmetric  orientation.  The  lateral  coefficients  showed  a  signifiranr  coupling  occurring  at 
the  higher  angles  of  attack,  indicating  that  the  requirements  for  opposing  moments  for  the  aircraft  in 
an  unsymmetric  orientation  will  change  significantly  as  AOA  is  mcreased  Perhaps  the  most  prominent 
result  is  that  the  failure  of  the  rudder  is  demonstrated  to  be  the  most  significant  failure  of  a  single  con¬ 
trol  surface.  Failures  of  the  other  surfaces  can  be  compensated  for  by  the  remaining  functional  sur¬ 
faces,  but  the  rudder  so  dominates  the  vectors  for  side  force  and  yawing  moment  that  a  failure  of  this 
surface  will  almost  certainly  indicate  either  unsymmetric  flight  or  departure  of  the  aircraft. 
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Introduction 


IV  PROBLEM  FORMULATION 


In  chapter  I,  three  questions  were  posed  regarding  the  stability  characteristics  of  an  aircraft 
with  failed  control  surfaces.  Specifically,  given  a  failure,  can  a  trim  solution  be  achieved?  If  trim  is 
achievable,  how  large  is  the  region  ma!  space  and  what  are  the  stability  characteristics  of  the  aircraft 
within  this  space?  And,  finally,  can  the  space  be  augmented  or  improved  by  allowing  for  greater  inde¬ 
pendence  of  the  control  surfaces?  In  this  chapter  the  equations  of  motion  derived  in  Appendix  D  are 
usrd  in  conjunction  with  the  aerodynamic  predictor  equations  developed  in  Chapter  11  to  provide  tech¬ 
niques  for  addressing  these  questions.  The  three  control  schemes  and  the  flight  conditions  studied  in 
this  thesis  are  defmed.  A  discussion  of  the  use  of  the  trim  equations  and  the  order  of  their  solution  is 
provided  along  with  an  overview  of  the  FORTRAN  codes  developed  to  solve  the  trim  problem.  The 
matrix  decomposition  techniques  of  Singular  Value  Decomposition  (SVD)  and  the  Row  Reduced 
Echelon  Form  are  advanced  as  a  mean  of  gaining  further  insight  mto  the  nature  of  the  stability  charac¬ 
teristics  of  the  aircraft. 


Problem  Scope 

The  trim  condition  which  is  desired  is  that  equilibrium  state  which  results  in  the  aircraft  flying 
in  constant  altitude,  rectilinear  flight.  While  other  flight  conditions,  which  might  be  less  difficult  to 
achieve  in  the  event  of  a  failure  of  a  control  surface;  only  constant  altitude  flight  is  examined  in  this 
thesis.  A  failure  of  the  rudder,  which  results  in  the  rudder  being  locked  at  some  deflection  is  the 
failure  mode  which  will  be  studied  in  depth.  This  failure  is  selected  since  it  appears  to  be  one  of  the 
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more  challenging  conditions  to  be  addressed.  The  discussions  which  follow  will  be  primarily  con¬ 
cerned  with  rudder  failure,  but  the  techniques  developed  and  some  of  the  results  are  pertinent  to 
failures  of  other  surfaces  as  well. 

The  investigation  will  also  be  limited  by  the  range  of  the  test  data  which  was  collected  by  Tur- 
hal  [12].  Therefore,  the  dimensions  of  the  a//3  space  which  will  be  examined  are  limited  to;  -6.0  S  s 
6.0  and  0  S  a  s  20.  A  fmal  set  of  assumptions  which  are  pertinent  to  the  formulation  of  this  inves¬ 
tigation  are  the  assumptions  associated  with  the  derivation  of  the  equations  of  motion;  they  are  as  fol¬ 
lows 

1.  The  aircraft  is  assumed  to  be  a  rigid  airframe. 

2.  The  earth  is  assumed  to  be  an  inertial  frame  of 
reference. 

3.  The  Aircraft  mass  and  mass  distribution  are  assumed 
to  be  constant. 

4.  The  X-Z  plane  of  the  aircraft  is  assumed  to  be  a 
plane  of  inertial  symmetry. 

The  implications  of  these  assumptions  are  discussed  in  detail  in  Appendix  D,  where  the  equa¬ 
tions  of  motion  are  derived. 


Control  Schemes 

As  was  noted  in  Chapter  U,  the  current  implementation  of  the  control  surfaces  on  the  F-16  al¬ 
lows  the  pilot  to  command  both  differential  (HA)  and  symmetric  (HE)  deflections  of  the  horizontal 
tails  and  strictly  asymmetric  deOecdon  of  the  flaperons  (FA).  While  the  flaperons  may  be  deployed 
synusetrically,  as  flaps,  this  is  not  part  of  the  normal  control  of  the  aircraft.  In  the  same  manner,  the 
leading  edge  flaps  (LEF)  are  deployed  via  scheduling  and  are  not  under  the  direct  control  of  the  pilot. 
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The  control  schemes  used  m  this  thesis  were  derived  by  allowing  the  control  surfaces  currently  on  the 
aircraft  to  deploy  with  successively  greater  independence.  It  should  be  noted  that  the  control  schemes 
discussed  in  this  thesis  do  not  refer  to  control  laws. 

In  Case  A  the  control  schemes  investigated  are  essentially  the  current  control  scheme, 
described  above,  with  the  improvement  that  the  LEFs  are  now  controlled  directly.  Consistent  with  their 
current  deployment,  they  are  limited  to  symmetric  deflection.  The  rudder  is  not  listed  in  Table  2  since 

Table  2  Control  Schemes 


Case  A 

Case  B 

Case 

<5  LEF 

<5  LFL 

(5lr 

<5  FA 

<5  RFL 

<5  RFL 

d  HA 

d  UHT 

^LHT 

<5he 

<5  RHT 

<5  RHT 

dUE 

<5rle 

in  all  the  studies  performed  in  this  research  the  rudder  is  the  failed  surface  and  is  therefore  not  avail¬ 
able  for  control.  The  deflection  of  the  mdividual.  control  surfaces  in  Case  A  are  related  as  follows: 
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For  Case  B,  the  LEFs  return  to  being  scheduled  surfaces  but  now  the  flaperons  are  permitted, 
like  the  horizontal  tails,  to  deflect  independently  of  one  another.  This  should  provide  the  aircraft  with 
greater  control  over  the  lift  experienced  at  a  given  AOA  and  some  additional  pitch  control.  Case  C 
represents  the  situation  where  all  the  available  surfaces  are  allowed  to  deploy  independently.  While 
the  feasibility  of  implementing  such  a  control  scheme  might  be  argued  the  object  here  is  to  study  what 
advantages  might  be  gained  if  such  a  scheme  were  achievable.  It  might  also  be  noted  that  each  scheme 
is  related  to  the  others.  In  fact.  Case  A  and  Case  B  are  special  cases  of  Case  C.  The  original  control 
scheme  then  is  simply  a  more  constrained  version  of  Case  A. 


Problem  Set-up 


In  Appendbc  D  the  equilibrium  equations  for  rectilinear  flight  were  derived  along  with  an  ex¬ 
pression  for  the  aircraft  pitch  angle  that  specified  constant  altitude  flight.  Repeating  these  for  clarity 
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The  aerodynamic  force  and  moment  coefflcients,  as  functions  of  a,  and  the  control  surface 


deflections,  were  deflned  in  Chapter  II  to  be  expressions  of  the  form 
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These  nondimensional  coefficients  may  be  converted  into  forces  and  moments  by  means  of  the 
relationships  defmed  in  Chapter  II.  Since  the  wind  tunnel  data  was  recorded  in  the  Stability  Axis  sys¬ 
tem,  a  transformation  will  have  to  be  performed  to  express  the  forces  in  the  Body  Axis  system,  which 
are  the  forces  specified  in  equations  (4.5)  -  (4.7).  The  Body  and  Stability  Axis  Systems  arc  defmed  in 
Appendix  D  and  are  shown  in  Figure  22 

Studying  equations  (4.5)  -  (4.12)  reveals  that  the  equations  arc  nonlinear  due  to  the  powers  on 
a  andyS  and  the  trigonometric  functions  in  equations  (4.5)  -  (4.7).  Not  only  are  the  equations  non¬ 
linear,  but  they  are  also  coupled  in  several  ways.  Equation  (4.6)  (side  force)  and  equation  (4.7)  (nor¬ 
mal  force)  both  include  terms  which  have  6  and  <p  in  them.  This  effectively  couples  the  lateral  and 
longitudinal  equations  of  the  aircrafts  motion.  Second,  the  aircraft  control  derivatives  and  stability 
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derivatives  have  coupled  terms  of  a  and/3  in  them.  Third,  equation  (4.11)  introduces  a  strong  coupling 
of  the  lateral  and  longitudinal  equations.  Obviously,  as  currently  expressed  the  problem  is  not  con¬ 
ducive  to  linear  solution  techniques  and  must  be  manipulated  to  produce  a  solvable  problem. 

If  the  equations  were  fully  expanded  by  substituting  in  the  aircraft  forces  and  moments  defmed 
in  Chapter  11,  the  following  unknowns  would  be  identified:  dynamic  pressure,  gross  weight,  7  control 
surface  deflections,  AOA,  sideslip  angle,  thrust,  pitch  angle,  and  roll  angle.  As  stated,  that  amounts  to 
fourteen  unknowns  and  six  equations.  Several  unknowns  can  be  removed  by  stating  the  aircraft  con¬ 
figuration  and  the  flight  conditions  at  which  the  analysis  is  to  be  performed.  Two  flight  conditions  are 
defmed  in  Table  3  for  use  in  the  analysis.  Condition  I  is  representative  of  the  aircraft  at  an  approach 
speed  and  Condition  II  permits  the  analysis  of  a  cruise  condition.  Note  that  the  thrust  term  only  ap¬ 
pears  in  the  axial  force  equation.  For  this  reason,  the  assumption  is  made  that  at  any  condition  where 
equilibrium  can  be  achieved,  within  other  limits,  the  aircraft  engine  can  develop  sufficient  thrust  to 
satisfy  equation  (43).  Equation  (43)  is  not  included  in  the  analysis  from  this  point  forward.  Since  one 
surface  is  assumed  to  be  failed  this  will  remove  another  unknown  as  will  the  constraint  of  constant  al¬ 
titude  flight  which  defmes  0  in  terms  of  a,  and  (4.11).  At  this  pomt  the  problem  has  been  reduced 
to  five  equations  in  mne  unknowns.  The  nonlinearities  and  coupling  noted  earlier  still  remain  to  be  ad¬ 
dressed.  Since  one  of  the  stated  objectives  of  this  investigation  is  to  define  the  region  in  a/fi  space  in 

Table  3  Flight  Conditions 


I  II 


Gross  Weight 

19000 tbf 

igooibt 

Mach 

0.22 

0.6 

Altitude 

Sea  level 

15000  ft 

Velocity 

150KEAS 

297KEAS 

q 

75psf 

300  psf 
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which  trim  is  achievable  it  is  reasonable  to  specify  a  value  for  a  and  /3.  The  problem  then  reduces  to 
seven  unknowns.  Table  2  indicates,  however,  that  Cases  A  and  B  involve  only  four  independent  con¬ 
trols.  The  number  of  unknowns  is  now  five  and  equal  to  the  number  of  equations.  Further,  by  specify¬ 
ing  a  and  we  have  reduced  all  of  the  aerodynamic  forces  and  moments  to  linear  functions.  For  Cases 
A  and  B,  and  with  the  specification  of  a  and  /3,  the  forces  and  moments  may  be  written  in  the  form 


= 


4  11 
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Here  Ao  represents  the  force  or  moment  of  the  "zero"  case,  B  the  contributions  of  the  failed  control 
surface  and  in  Case  B  the  LEFs,  and  the  last  term  the  force  or  moment  that  will  result  from  the  un¬ 
known  deflections  of  the  control  surfaces. 


Solving  the  Trim  Problem 

Figure  23  is  a  schematic  flow  chart  of  the  FORTRAN  codes  developed  to  solve  the  defined 
trim  problem  and  provides  a  useful  aid  for  following  the  solution  technique  employed.  The  previous 
discussion  follows  the  flow  chart  down  to  the  point  where  the  forces  and  moments  due  to  the  failed  con¬ 
trol  surface,  the  rudder,  have  been  calculated.  Given  that  for  zero  flight  path  angle  6  is  equal  to  a  an  in¬ 
itial  estimate  for  d  is  given  as  a.  Further,  since  the  remaining  control  surfaces  do  not  exert  a  strong 
influence  on  the  aircraft  side  force  it  is  initially  assumed  that  the  unknown  control  surfaces  do  not  ap¬ 
pear  in  equation  (4.6).  With  these  assumptions  equation  (4.6)  may  be  solved  for  an  initial  estimate  of 
<p.  At  this  point  all  of  the  angles  in  the  problem  have  either  been  specified  or  estimated  and  hence  the 
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only  remaining  unknowns  in  the  problem  are  the  control  surface  deflections.  Based  on  the  restrictions 
placed  on  the  control  derivatives  in  Chapter  II  the  problem  is  now  a  linear  problem  of  four  equations 
and  four  unknowns  which  may  be  formed  as  follows 
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Since  everything  on  the  left  hand  side  of  each  equation  is  known  the  problem  may  be  rewritten  in  the 
familiar  form: 

b  =  [A3  6  (4.18) 

The  b  vector  contains  all  the  known  forces  and  moments  and  has  as  its  rows;  normal  force, 
pitching  moment,  rolling  moment,  and  yawing  moment.  The  d  vector  is  the  unknown  control  deflec¬ 
tions  and  the  4  x  4  A  matrix  contains  the  control  derivatives  of  the  respective  controls.  Solving  equa¬ 
tion  (4.18)  will  define  the  control  deflections  needed  to  achieve  trim. 

Earlier  in  the  problem  solution  an  assumption  was  made  that  the  side  force  did  not  contain 
terms  from  the  unknown  control  surfaces.  Further,  the  pitch  angle  was  estimated  as  a  though  in  Ap- 
I  pendix  D  it  is  demonstrated  that  this  is  not  true  in  general.  These  assumptions  are  now  accounted  for 
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by  recalculating  the  sideforce  including  the  force  due  to  the  deflections  found  via  equation  (4. 18)  and 
calculating  a  new  pitch  angle  with  equation  (4.11).  A  new  roll  angle  is  then  calculated  with  these  up¬ 
dates  and  the  problem  is  iterated  until  the  errors  between  the  estimates  for  6  and  (p  become  small. 

While  the  deflections  determined  by  solving  equation  (4.18)  will  result  in  the  satisfaction  of  the 
equilibrium  equations  these  deflections  may  not  represent  a  solution  to  the  aircraft  trim  problem.  To 
be  a  bonaflde  solution  the  deflections  determined  by  equation  (4.18)  may  not  exceed  the  deflection 
limits  defined  in  Table  4.  If  the  calculated  deflections  are  within  these  constraints  then  that  point  has 
been  determined  to  be  a  point  in  a//9  space  at  which  trim  can  be  effected. 

Computer  Codes 

A  FORTRAN  computer  code  was  written  for  each  of  the  three  control  schemes  defined.  The 
order  of  solution  and  lo^c  are  essentially  the  same  for  each  code  with  one  important  distinction.  The 
discussion  provided  above  only  covered  the  cases  where  there  are  four  independent  control  deflections 
to  be  solved  for.  Case  C  incorporates  six  control  surfaces  and  therefore  may  not  be  solved  directly  by 
the  technique  described  above.  Case  C  was  solved  by  placing  an  additional  two  loops  outside  of  the 
aip  loops  of  the  problem  flow  charted  in  Figure  23 ;  one  loop  for  each  of  the  leading  edge  flaps.  The 

Table  4  Control  Surface  Deflection  Limits 


LEF 

-2*  sd  i 

25* 

FLAPERONS 

-20*  s  d  s 

20* 

HRZT  Tails 

-25*  Si  d  S 

25* 

Rudder 

-30*  Sd  S 

30* 
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Figure  23  Autrim  Rowchart 


38 


Er2= 


®2  ■ 


Erl 

-GT. 

.0001 


Yes 


Er2 
•  GT. 
.0001 


Yes 


Autrim  Flowchart  Continued 


39 


LEFs  were  then  allowed  to  vary  through  their  ranges  in  one  degree  increments.  As  will  be  seen  later  in 
this  chapter,  the  introduction  of  the  two  additional  degrees  of  freedom  to  the  problem  means  that  there 
may  be  multiple  solutions  at  a  given  point.  The  coding  logic  is  such  that  only  one  solution  is  recorded 
for  a  given  jjoint  in  alfi  space.  The  three  computer  codes  are  included  in  Appendix  F. 


Matrix  Decomposition  Techniques 

Two  techniques  for  decomposing  the  linear  problem  which  has  been  defined  were  investigated 
as  means  for  gaining  additional  insight  into  the  nature  of  the  problem.  These  techniques  are  particular¬ 
ly  helpful  for  Case  C  where  a  unique  solution  to  the  problem  does  not  exist.  The  problem  is  stated  in 
the  following  form 

b  =  CA]  (5  (4.19) 

Here  b  is  a  4  x  1  vector,  A  is  4  x  6  matrix  of  control  derivatives,  and  <5  is  a  6  x  1  vector  of  un¬ 
known  control  deflections.  By  augmenting  the  A  matrix  with  the  b  vector  and  placing  the  augmented 
matrix  in  Row  Reduced  Echelon  Form  (RREF)(5:40-41],  the  problem  can  be  decomposed  into  the 
form 


1  0  0  0  A 
0  1  0  0  C 
0  0  X  0  E 
0  0  0  X  G 


B 

O 

F 

H 


(4.20) 
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Which  may  be  rewritten  as: 


=  6^  +  AcSg  +  B<5g 


(4.21) 


b.  = 


6,  +  06^  +  H6- 
4  5  0 


In  turn  equation  (4.21)  is  manipulated  to  place  the  problem  in  the  desired  form. 


<6>  =  <b  >  -  6, 


•  N 

A 

f  *V 

B 

C 

- 

D 

• 

E 

F 

G 

>•  > 

H 

(4.22) 


Stated  in  this  way  several  things  may  be  observed.  First,  when  (d  5)  and  (3  6)  are  zero  the  b’ 
vector  represents  the  solution  to  the  four  independent  control  problem.  Secondly,  equation  (4.22) 
defines  the  range  of  available  solutions  that  may  be  obtained  at  the  specified  point  in  a  /  space.  Any 
solution  in  the  span  defined  by  equation  (4.22)  is  a  viable  solution  provided  that  the  control  deflections 
arc  within  the  defined  limits.  Also  note  that  the  failure  of  any  control  surface  may  be  represented  simp¬ 
ly  by  rhanging  the  contTol  surfaccs  whose  control  derivatives  are  contained  in  the  A  matrix.  Or,  viewed 
from  another  angle,  it  can  be  seen  that  equation  (4.22)  defines  the  degree  to  which  any  two  additional 
surfaces  may  be  failed  and  equilibrium  still  be  achieved. 

Given  a  matrix  A  it  may  be  decomposed  via  Singular  Value  Decomposition  into  the  following 
form,  (9:451J. 
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(4.23) 


Here  the  columns  of  U  are  defined  to  be  the  left  singular  vectors,  the  columns  of  V  are  the 
right  singular  vectors  and  (Z)  is  a  diagonal  matrix  with  the  nonzero  singular  values  of  A  on  the 
diagonal.  If  A  is  an  m  x  n  matrix  and  their  are  r  nonzero  singular  values  then  the  following  dimensions 
will  be  established.  Ui  will  contain  r  columns  and  U2  will  contain  m-r  columns.  Vi  will  have  r  columns 
and  V2  n-r  columns,  [9,452].  The  range  space  is  defined  by  the  span  of  the  columns  of  U  1  and  the 
null  space  by  the  span  of  the  columns  of  V2.  SVD  provides  two  insights  into  the  problem  that  are  imme¬ 
diately  apparent.  If  the  matrbc  A  is  found  to  have  any  singular  values  that  are  zero  then  A  is  rank  defi¬ 
cient  by  the  number  of  zero  singular  values  and  a  unique  solution  to  the  linear  problem,  as  formulated, 
does  not  exist.  The  columns  of  V2  span  the  null  space  of  the  problem  with  the  attending  implication 
that  any  combination  of  control  deflections  that  are  in  that  span  will  map  to  zero.  Stated  another  way,  if 
the  controls  are  combined  in  such  a  manner  that  the  vector  of  conirol  deflections  (6)  is  equal  to  one  of 
the  vectors  in  V2  times  a  constant,  then  that  combination  of  controls  will  have  no  effect  on  the  forces 
and  moments  represented  in  the  b  vector  of  equation  (4.19). 


Smnmaiy 

In  this  chapter  the  nonlinear  equilibrium  equations  derived  in  Appendix  D  are  used  to 
develop  a  methodology  for  determining  if  and  where  trim  may  be  achieved  for  a  given  control  surface 
failure.  The  solution  technique  and  order  are  discussed  using  a  schematic  flow  chart,  which  describes 
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the  FORTRAN  codes  which  were  written  to  perform  the  trim  investigations.  The  matrix  decomposi¬ 
tion  techniques  of  Singular  Value  Decomposition  and  the  Row  Reduced  Echelon  Form  are  presented 
as  methods  for  gaining  a  deeper  understanding  and  appreciation  of  the  defmed  problem. 
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Introduction 


In  this  chapter  the  results  of  the  equilibrium  analysis  performed  via  the  methodology  of  Chap¬ 
ter  IV  are  presented.  The  relative  merits  of  each  of  the  three  control  schemes  will  be  discussed  with 
respect  to  not  only  their  ability  to  augment  the  region  in  which  trim  is  achievable  but  also  their  ability  to 
affect  the  aircraft  characteristics  within  the  defmed  re^ons.  Specific  attention  will  be  given  to  address¬ 
ing  why  a  particular  control  scheme  gives  the  results  that  it  does  and  what  the  ensuing  implications  are. 
A  short  discussion  will  be  provided  concerning  preferred  locations  within  the  equilibrium  space  and 
what  the  attending  pros  and  cons  of  being  located  at  that  point  are.  Contour  plots  of  the  aircraft  roil 
angle,  drag  coefficient,  and  residual  pitch  and  roil  authority  are  used  to  support  this  analysis.  The  Row 
Reduced  Echelon  Form  and  Singular  Value  Decomposition  are  used  to  provide  additional  insight  into 
the  problem. 


Trim  Availability 

In  the  event  of  a  failure  of  a  control  surface  one  of  the  Qrst  questions  to  be  addressed  is 
whether  the  aircraft  can  be  maintained  in  a  state  of  equilibrium.  An  investigation  of  rudder  failure  was 
performed  to  address  this  question  with  the  analysis  subject  to  the  constraints  listed  in  Table  S.  Only 
failures  of  the  rudder  resulting  in  a  negative  deflection,  rudder  deflected  towards  the  starboard  side  of 

Table  5  Problem  Constraints 

0*  S  a  S  20" 

-6"  S  ^  S  6" 

(3min  ^  di  2  (3max 
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the  aircraft,  were  investigated  since  the  aircraft  was  otherwise  assumed  to  be  symmetrical.  Table  6 
presents  the  results  of  this  initial  analysis  indicating  that  while  a  complete  or  "hardover"  failure  can  be 


Table  6  Maximum  Trimable  Rudder  Failure 


Flight  Condition 

1 

II 

Case  A 

-20" 

-30“ 

Case  B 

-20* 

■30“ 

CaseC 

-21* 

-30“ 

tolerated  at  the  second  flight  condition  it  is  not  possible  to  trim  the  aircraft  at  the  lower  dynamic  pres¬ 
sure  of  Flight  Condition  I.  Note  that  the  increasingly  complex  control  schemes  do  not  significantly 
alter  the  degree  of  deflection  that  may  be  tolerated  at  Flight  Condition  I.  While  not  essential,  it  seems 
desirable  to  be  able  to  place  the  aircraft  in  a  condition  of  symmetry  or  zero/9.  Table  7  indicates  the  de- 

Table  7  Manmum  Rudder  Failure  for/9  =»  0 


Flight  Condition 

1 

II 

Case  A 

-1* 

-9* 

CaseB 

-r 

-9* 

CaseC 

-5* 

-10“ 

gree  of  rudder  deflection  that  can  be  sustained  and  the  aircraft  still  returned  to  a  zero  sideslip  condi¬ 
tion.  While  Case  C  does  provide  a  measure  of  improvement  over  the  other  control  schemes  it  is  hardly 
a  substantial  one.  The  results  presented  in  these  two  tables  indicate  that  mth  the  control  surfaces  cur¬ 
rently  on  the  aircraft,  even  when  employed  with  complete  independence,  equilibrium  can  not  be 
achieved  at  all  flight  conditions  if  the  rudder  fails  at  its  maximum  deflection.  This  statement  is  made 
with  the  caveat  of  the  constraints  within  which  the  analysis  was  performed.  Even  a  partial  failure  of  the 
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rudder  may  necessitate  flight  in  an  unsymmetric  orientation.  While  a  symmetric  orientation  might  be 
preferable,  the  fact  that  an  equilibrium  condition  exists  for  a  "hardover"  failure  should  be  noted  as  sig¬ 
nificant.  The  aircraft  may  not  be  able  to  be  correctly  oriented  for  a  landing,  but  at  least  the  occurrence 
of  a  rudder  failure  need  not  result  in  an  uncontrollable  departure  of  the  aircraft. 

The  information  presented  in  Tables  6  and  7  mdicate  that  the  increasingly  complex  control 
schemes  do  not  significantly  change  the  aircrafts  ability  to  sustain  rudder  damage.  There  are,  however, 
advantages  to  be  gained  from  permitting  greater  independence  among  the  control  surfaces.  The 
shaded  regions  of  Figure  24  show  the  positions  in  a//3  space  where  the  aircraft  can  be  trimmed  when 
the  rudder  is  locked  in  a  neutral  position.  Anywhere  within  this  envelope,  the  correct  application  of 
controls  will  zero  all  of  the  accelerations  and  place  the  aircraft  in  an  equilibrium  state  of  constant  al¬ 
titude,  rectilinear  flight.  It  is  immediately  apparent  that  Case  B  provides  the  most  significant  improve¬ 
ment  from  one  control  scheme  to  the  next  at  this  flight  condition.  Also,  the  results  Hicriitc/»H  in  the 
proceeding  paragraph  may  be  substantiated  by  observing  that  the  Figures  25  and  26  which  represent 
the  equilibrium  regions  for  rudder  failures  of  ten  and  twenty  five  degrees  respectively.  At  this  flight 
condition.  Flight  Condition  n,  a  significant  improvement  in  the  aircrafts  ability  to  return  to  a  zero  ^ 
condition  is  not  achieved  by  allowing  more  freedom  among  the  control  surfaces. 

Note  that  as  was  discussed  in  Chapter  IV  each  case  is  contained  within  the  next,  more  com¬ 
plex,  control  scheme.  Hence,  the  trim  region  of  the  control  set-up  of  the  current  F-16  would  be  a  line 
located  with  in  the  Case  A  trim  region.  Allowing  the  LEFs  to  be  controlled,  but  in  a  strictly  symmetric 
fashion,  expands  this  line  into  the  band  which  is  shown  in  Figure  24.  The  substantial  improvement  from 
Case  A  to  Case  B  results  from  allowing  the  flaperons  to  act  as  flaps  in  Case  B.  With  this  new  sym¬ 
metric  deflection  capability  the  aircraft  now  has  the  ability  to  significantly  change  its  lift  at  a  ^ven  pxsint 
in  the  a//9  space.  One  further  note  of  interest  is  that  the  characteristic  shape  discussed  in  Chapter  11 
for  the  longitudinal  aerodynamic  coefficients ’s  evident  in  Fgure  24.  If  desired,  the  aircraft  can  be 
trimmed  at  a  lower  AOA  by  a.«uming  an  unsymmetric  orientation. 
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The  equilibrium  regions  in  which  trim  could  be  achieved  for  Flight  Condition  I  provided  per¬ 
haps  the  most  dramatic  evidence  of  the  differences  between  the  three  control  schemes.  It  can  be  ob¬ 
served  from  Figure  27  that  the  improvement  gained  from  Case  A  to  Case  B  is  the  ability  to  trim  over  a 
greater  range,  of  angle  of  attacks.  Very  little  if  any  improvement  is  gained  in  the  ability  to  move  the 
airaaft  laterally.  This  observation  is  substantiated  by  noting  that  the  means  by  which  the  control  sur¬ 
faces  generate  lateral  forces  and  moments  is  through  asymmetric  deflections.  No  additional 
capabilities  for  asymmetric  control  deflection  exist  between  Case  A  and  Case  B.  This  is  not  the  situa¬ 
tion,  however,  for  Case  C.  Case  C  augments  Case  B  by  allowing  the  LEFs  to  be  deployed  with  com¬ 
plete  independence.  The  advantage  gained  also  is  evidenced  in  Figure  27.  Here  the  equilibrium  region 
is  visibly  improved  both  in  a  and  in  The  question  naturally  arises  as  to  why  Case  C  shows  such  a 
marked  enlargement  of  the  equilibrium  region  at  Flight  Condition  I  when  its  improvement  is  marginal 
at  the  higher  dynamic  pressure  of  Flight  Condition  II.  The  answer  may  be  found  by  investigating  the 
normalized  derivative  contour  plots  developed  in  Chapter  III.  Studying  the  contour  plots.  Appendix  E, 
of  the  lateral  derivatives  for  the  LEFs  will  reveal  that  while  they  are  almost  insignificant  relative  to  the 
other  surfaces  at  the  lower  AOAs,  they  become  quite  prominent  as  angle  of  attack  is  increased.  There¬ 
fore,  at  Flight  Condition  I  where  a  fairly  large  a  is  required,  a  regime  is  entered  where  the  LEFs  have  a 
significant  role  to  play. 

Tables  8, 9,  and  10  provide  a  quantitative  representation  of  the  same  information  which  is  con¬ 
tained  in  the  equilibrium  region  figures  already  observed.  The  computer  codes,  which  performed  the 
trim  surveys,  indexed  through  the  a/^  space  searching  for  points  at  which  trim  could  be  achieved.  Each 
trim  point  was  located  inside  a  square  of  area  0.01  deg  ^ .  The  areas  listed  in  Tables  8, 9  and  10  were 
obtained  by  summing  all  the  "points"  where  a  trim  solution  was  found. 

It  is  true  that  in  most  instances  a  single  point  at  which  trim  can  be  achieved  is  considered  to  be 
sufficient.  For  the  investigation  performed  here,  two  reasons  .'•‘e  advanced  for  why  it  is  desirable  to 
achieve  a  large  trim  region.  First,  in  the  event  that  a  control  surface  fails  at  some  large  deflection,  the 
accompanying  forces  and  moments  generated  may  be  so  large  that  the  aircraft  will  move  rapidly 


50 


oipna 


Equilibrium  Area 
for 

Cose  A  q  =  75 


Equilibrium  Area 
for 

Cose  8  q  =  ' 


-6.00  -  4.00  -2.00  0.00  2.00  4.00  6.00 

beto 


Equilibrium  Areo 
for 

Cose  C  q  =  75 


Figure  27  Equilibrium  Regions  for  Right  Condition  I 


towards  departure.  A  large  equilibrium  region  indicates  that  with  the  correct  application  of  controls, 
equilibrium  may  be  regained  with  a  greater  degree  of  certainty  and  ease  then  if  equilibrium  can  only  be 
achieved  at  some  obscure  location  in  a//3  space.  Second,  given  that  equilibrium  can  be  obtained,  issues 
of  residual  control  authority  and  aircraft  orientation,  become  first  order  considerations.  It  is  postu¬ 
lated  that  the  larger  trim  region  will  allow  for  greater  latitude  in  selecting  a  trim  location  that  is 
preferable  in  light  of  the  considerations  listed  above. 


Table  8  Areas  of  Equilibrium  Regions  Rudder 

Flight  Condition 

1 

II 

Case  A 

0.35 

5.95 

Case  B 

1.03 

37.75 

CaseC 

20.61 

38.18 

Table  9  Areas  of  the  Equilibrium  Regions  Rudder  =  -10 


Flight  Condition 

1 

II 

Case  A 

.24 

5.14 

Case  B 

2.32 

27.3 

CaseC 

18.75 

28.93 

Table  10  Areas  of  the  Equilibrium  Regions  Rudder  -25 


Right  Condition 

1 

II 

CaseA 

0 

.81 

CaseB 

0 

3.42 

CaseC 

0 

6.85 
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To  investigate  the  aircrafts  orientation  and  characteristics  within  the  regions  of  equilibrium, 
contour  plots  of  the  following  were  constructed:  aircraft  roll  angle,  total  drag  coefficient,  residual  pitch 
authority,  and  residual  roll  authority.  The  residual  authorities  are  percentages  representing  of  the  max¬ 
imum  authority  remains  that  could  be  developed  by  the  functional  surfaces  at  that  point  in  a!^  space. 
Note  that  the  dashed  lines  defme  the  boundary  of  the  trim  region  defmed  earlier.  Taken  together  the 
plots  in  Figures  28  -29  provide  a  fairly  complete  picture  of  the  aircraft  characteristics  with  the  rudder 
locked  in  a  neutral  position.  As  is  increased  there  is  a  steady  increase  in  the  aircraft  roll  angle.  This 
result  is  consistent  with  the  observation  made  in  Chapter  in  that  the  rudder  is  the  only  control  surface 
which  effectively  counters  aircraft  side  force.  Hence  if  the  rudder  is  unavailable,  and  equilibrium  must 
be  maintained,  some  roll  angle  must  be  sustained.  Since  these  plots  were  developed  for  Flight  Condi¬ 
tion  II,  the  aircraft  is  not  limited  by  its  pitching  authority.  Further,  Figure  29  provides  a  clear  mdica- 
tion  of  the  lateral  freedom  which  is  available  and  what  the  attending  costs  are  in  reduced  residual 
control  authority,  aircraft  drag,  and  roll  angle. 

This  point  is  sharpened  by  observing  a  similar  set  of  plots  (Figures  30-31  )  which  were 
generated  for  the  Case  B  control  scheme  at  Flight  Condition  II  but  now  with  the  rudder  locked  at  a 
deflection  of  -10  degrees.  Here  it  is  evident  that  the  preferred  location  within  the  equilibrium  region  is 
driven  by  what  is  most  important  to  the  pilot.  If  maintaining  maximum  control  authority  is  a  first  order 
consideration.  Figures  30  and  31  show  the  pilot  that  he  must  be  willing  to  accept  flight  in  an  unsym- 
metric  orientation  of  about  three  degrees  of  /9  and  eight  degrees  of  rou  angle.  Conversely,  if  he  desires 
to  fly  as  close  to  a  symmetric  condition  as  possible,  he  can  approach  it  at  this  flight  condition,  but  at 
the  substantial  price  of  retaining  only  twenty  percent  of  his  pitch  authority  and  forty  percent  of  his  roll 
authority.  Minimizing  the  drag  coefficient,  as  seen  in  Figure  30,  would  require  trimming  at  a  slightly 
lower  AOA.  Also  note,  that  even  as  the  aircraft  approaches  the  zero/?  condition,  the  roll  angle  is  not 
zero  here. 
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Further  Insight  into  the  Tt\m  Problem 

Two  matrix  decomposition  techniques  were  used  to  provide  additional  insight  into  the  charac¬ 
teristics  of  the  aircraft  within  a  trim  region.  Through  the  use  of  the  Singular  Value  Decomposition  of 
the  matrix  containing  the  control  derivatives  of  the  various  controls  used  in  achieving  trim  it  was  pos¬ 
sible  to  define  the  vectors  of  control  deflection  which  span  the  null  space.  By  manipulating  the  Row 
Reduced  Echelon  Form  of  the  problem  in  the  manner  discussed  in  Chapter  IV  it  was  possible  to  defme 
what  the  allowable  control  deflections  at  a  particular  point  in  a//9  space  are.  Further  insight  into  the  in¬ 
terrelationship  of  the  control  surfaces  in  achieving  trim  was  also  obtained  via  this  decomposition.  Al¬ 
though  not  used  in  this  manner  here,  this  technique  also  defmes  the  range  of  failures  that  can  be 
sustained  by  any  two  additional  surfaces. 

Four  points  from  the  equilibrium  region  of  Case  C  at  Flight  Condition  I,  Figure ,  were  selected 
for  study  and  these  points  are  listed  in  Table  11.  Essentially,  they  represent  the  extremes  in  a  and  ^  at 
which  trim  could  be  effected.  Performing  the  row  reduction  of  the  augmented  matrix  for  points  1  and  2 

Table  11  Investigation  Points 


q 

Point  1 

75 

Point  2 

75 

Points 

75 

Point  4 

75 

a 

12 

0.0 

18 

-0.8 

17 

-1.8 

17 

1.8 
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and  manipulating  as  was  discussed  in  Chapter  IV  yields  equations  (S.l)  and  (5.2). 


1fl~ 

15.27 

0.12 

-0.13 

RFL 

= 

16.76 

-0.02 

0.26 

LHT 

21.66 

+  LLEF 

-0.34 

+  RLEF 

0.37 

RHTJ 

-23.20 

0.24 

-0.50 

lfl" 

~19.08 

0.13 

-0.19 

RFL 

= 

-12.21 

-0.05 

0.34 

LHT 

-18.73 

+  LLEF 

-0.41 

+  RLEF 

0.50 

RHT 

L  ^ 

-25.64 
L  _i 

0.30 

-0.62 

Here,  the  first  column  of  numbers  represents  the  control  deflections  that  the  control  surfaces  listed  on 
the  left  would  have  to  mke  ou  to  achieve  trim  for  the  LEFs  set  at  zero.  The  range  of  allowable  solu¬ 
tions  then  contains  any  combination  of  deflections  of  the  LEFs  that  does  not  lead  to  a  violation  of  the 
deflection  constraints  of  the  other  control  surfaces.  Points  1  and  2  represent  the  minimum  and  maxi¬ 
mum  AOA  at  which  trim  may  be  achieved  for  Case  C.  If  the  LEFs  are  set  at  their  scheduled  values  for 
the  respective  AOAs  these  two  equations  would  represent  the  Case  B  solution  at  these  two  points. 
Note  that  without  an  asymmetric  deflection  capabiUty,  equation  (5.2)  would  not  represent  a  solution 
due  to  the  violation  of  the  deflection  limit  on  the  RHT.  Another  point  of  interest  is  that  the  total 
elevator  de.  dion  changes  very  little  between  the  low  AOA  to  the  higher  AOA  at  point  two;  -22.43 
and  -22.18  degrees,  respectively.  What  does  change  dramatically  is  the  employment  of  the  flaperons, 
which  experience  a  complete  change  of  sign  indicating  that  at  some  intermediate  AOA  the  flap  deflec¬ 
tion  is  approximately  zero.  A  fmal  note  is  that  the  sign  combinauons  on  the  LEF  terms  remain  consis- 
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tent  between  equation  (5.1)  and  (5.2)  illustrating  that  there  is  not  some  fundamental  change  in  the  in¬ 
teraction  of  the  control  surfaces  from  pomt  one  to  two.  The  null  spaces  are  spanned  by  the  two  vectors 
obtained  in  the  singular  value  decomposition.  Any  combination  of  the  control  surfaces  within  the  span 
of  these  vectors,  at  each  point,  will  result  in  a  zero  input  to  the  force  and  moments  contained  in  the  b 

Table  12  Null  Vectors  at  Points  1  and  2 


Point  1  Point  2 


0.139" 

o.ooo"" 

0.1 63~ 

0000“ 

■0.142 

0.167 

-0.211 

0.145 

-0.401 

0.018 

-0.404 

-0.056 

0.397 

-0.175 

0.442 

-0.104 

0.631_ 

0.692^ 

0.444_ 

0.81 0_ 

vector  of  the  linear  problem;  Normal  force.  Pitching  moment.  Rolling  moment,  and  Yawing  moment. 

Points  3  and  4,  see  Table  11,  represent  the  aircraft  at  the  AOA  at  which  the  largest  latitude  in 


P  exists  for  this  flight  condition.  The  appropriate  augmented  matrices  and  manipulations  lead  to  equa¬ 
tions  (5.3)  and  (5.4). 


lfl“ 

'-20.73' 

an” 

-0.17 

RR 

-5.17 

-0.03 

0.31 

LHT 

= 

-12.88 

+  LLEF 

-0.36 

RLEF 

0.45 

(5.3) 

RHT^ 

_-31.26_ 

0.24_ 

-0.56 

U  -J 

'lfl" 

~9.06~ 

"0.1 6 

-0.13 

RFL 

-22.34 

-0.05 

0.28 

LHT 

-30  95 

+  LLEF 

-.038 

-1-  RLEF 

-0.39 

(5.4) 

_RHT_ 

-13.16 

0.30 
■■  « 

-0.54 

At  these  points  it  can  be  observed  that  both  the  flaperons  and  the  horizontal  tails  are  taking  on  large 
asymmetric  deflections  to  generate  the  lateral  forces  and  moments  required  to  hold  the  aircraft  in  equi- 
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librium.  Note  the  reversals  in  the  magnitudes  of  the  control  deflections  which  occur  as  the  aircraft 
traverses  from  negative /9,  point  3,  to  positive /3  at  point  4.  Again  it  is  evident  that  with  out  the  aid  of 
the  LEFs  deployed  in  an  asymmetric  fashion,  the  constraints  on  the  deflections  of  the  control  surfaces 
cannot  be  met.  The  sign  combinations  observed  in  equations  (5.1)  and  (5.2)  for  the  LEFs  are  main¬ 
tained  in  equations  (5.3)  and  (5.4)  indicating  that  a  fundamental  change  in  the  relationship  of  the  con¬ 
trol  surfaces  has  not  occurred  in  the  /3  range  traversed.  The  null  vectors  associated  with  points  3  and  4 
are  listed  below. 

Table  13  Null  Vectors  at  Points  3  and  4 


Point  3  Point  4 


0.148 

0.000 

'0.155' 

O.OOtT 

3.200 

0.143 

-0.141 

0.171 

■0.432 

■0.065 

-0.415 

0.045 

0.445 

-0.094 

0.415 

0.210 

0.433 

0.831 

0.671 

0.628 

-0.605 

0.525 

43.401 

0.728 

Summary 

In  this  chapter  the  results  of  the  investigations  into  the  availability  of  a  trim  solution  for  an 
aircraft  which  has  sustained  a  failure  of  the  rudder  were  discussed.  It  was  demonstrated  that  even 
when  the  aircraft  sustained  a  "liardover”  failure  of  the  rudder,  trim  was  achievable  at  realistic  flight  con¬ 
ditions.  Further,  all  three  of  the  prof>osed  control  schemes  were  capable  of  achieving  this  condition. 

It  was  also  shown,  however,  that  a  return  to  wmgs  level,  zero  sideslip  flight  may  not  be  possible.  Even 
the  allowance  for  complete  independence  of  the  remaining  control  surfaces  did  not  significantly  alter 
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this  finding.  Though  the  necessity  for  flight  in  an  unsymmetric  orientation  might  not  be  desirable,  it 
should  not  obscure  the  finding  that  the  aircraft  can  still  maintain  constant  altitude,  rectilinear  flight, 
even  when  it  has  sustained  the  most  severe  failure  of  the  rudder. 

Through  the  use  of  plots  illustrating  the  re^ons  in  alfi  space  at  which  trim  could  be  achieved 
for  the  three  different  control  schemes,  the  advantages  offered  by  each  scheme  were  demonstrated. 
The  most  dramatic  expansion  of  the  trim  region  was  observed  at  Flight  Condition  I  when  the  six  con¬ 
trol  surfaces  were  allowed  to  operate  with  complete  independence.  This  augmentation  results  from 
employing  the  LEFs  in  an  independent  manner  in  a  region  of  a//3  space  where  they  have  gained  effec¬ 
tiveness  relative  to  the  other  surfaces. 

The  existence  of  preferred  locations  within  the  re^ons  was  demonstrated  by  the  use  of  con¬ 
tour  plots  of  the  aircraft  roll  angle,  drag  coefficient,  and  residual  pitch  and  roll  authorities.  For  partial 
failures  of  the  rudder  it  may  be  possible  to  orient  the  aircraft  close  to  symmetric  flight  but  it  was  shown 
that  there  are  resulting  penalties  to  be  paid  in  the  form  of  reduction  of  residual  control  authorities.  By 
decomposing  the  problem  with  row  reduction  of  the  augmented  matrix  of  the  linear  problem  formu¬ 
lated  in  Chapter  IV  it  was  possible  to  gain  a  better  "feel*  for  how  the  controls  deflected  at  different 
points  in  aip  space. 


1 


62 


VI  CONCLUSIONS  AND  RECOMMENDATIONS 


In  the  introduction  chapter  of  this  thesis  it  was  stated  that  this  research  would  encompass  a 
thorough  investigation  of  the  stability  characteristics  of  an  aircraft  which  had  sustained  damage  to  a 
primary  control  surface.  This  analysis  was  carried  out  by  formulating  functional  representations  of 
wind  timnel  data  for  an  F-16.  The  polynomials  developed  from  this  data  were  examined  to  identify  cou¬ 
pling  which  might  be  significant.  This  data  was  then  used  to  perform  a  nonlinear  analysis  which 
defmed  the  regions  in  al^  space  in  which  equilibrium  could  be  maintained  when  the  aircraft  sustained 
a  failure  of  the  rudder.  The  following  paragraphs  provide  a  summary  of  the  observations  and  con¬ 
clusions  of  this  research. 


Coupling  Effects 

The  contour  plots  that  were  constructed  to  observe  the  variation  of  the  aerodynamic  coeffi¬ 
cients  indicated  that  there  was  a  significant  variation  in  the  longitudinal  coefficients  as  a  function  of 
This  variation  was  symmetric  about equals  zero.  Not  only  was  this  variation  observed  in  these  plots, 
but  the  trim  evaluations  performed  later  also  were  effected.  A  slightly  unsymmetrical  orientation 
resulted  in  trim  being  achieved  at  a  lower  angle  of  attacL  A  coupling  of  a  and  was  also  noticed  in  the 
lateral  coefficients  at  the  higher  an^es  of  attack.  Plots  of  the  normalized  control  derivatives  provided 
several  key  insights  The  most  significant  of  these  was  the  indication  that  the  rudder  is  the  only  control 
surface  which  is  effective  in  generating  side  force  on  the  aircraft.  The  flaperons  and  horizontal  tails 
proved  to  be  of  the  same  order  of  magnitude  for  most  of  the  forces,  leading  to  the  conclusion  that  a 
failure  of  one  of  these  surfaces  can  be  effectively  addressed  with  the  remaining  surfaces.  The  leading 
edge  flaps,  which  at  low  angles  of  attack  were  not  particularly  significant  relative  to  the  other  surfaces, 
became  effective  with  respect  to  the  other  controls  as  the  aircraft  AOA  was  increased 
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A  final  coupling  effect,  which  was  not  actually  aerodynamic  in  nature  but  was  of  importance, 
involved  one  of  the  angular  relationships  used  to  describe  the  aircraft  orientation.  In  Appendix  D  it 
was  demonstrated  that  the  expression  usually  employed  to  relate  aircraft  pitch  angle  to  flight  path 
emgle  is  not  satisfactory  for  analysis  that  will  occur  in  asymmetric  orientations.  The  appropriate 
relationship  was  derived  in  Appendix  D  and  used  in  the  analysis  performed  in  this  thesis. 

Equilibrium  Evaluations 

The  equilibrium  analysis  performed  in  'his  thesis  indicated  that,  with  the  control  surfaces  cur¬ 
rently  on  the  F-16,  it  is  possible  to  place  the  aircraft  in  state  of  constant  altitude,  rectilinear  flight  when 
the  aircraft  has  sustained  a  failure  of  the  rudder.  In  fact,  all  three  of  the  control  schemes  investigated 
in  this  thesis,  trimmed  the  aircraft  even  when  a  maximum  deflection  of  the  rudder  was  the  indicated 
failure.  While  trim  could  not  be  achieved  at  all  flight  conditions  with  this  failure,  and  the  resulting  orien¬ 
tation  was  unsymmetrical,  the  fact  remains  that  a  hardover  failure  of  the  rudder  need  not  imply  a  depar¬ 
ture  of  the  aircraft.  It  was  also  demonstrated,  that  although  the  rudder  is  the  dominant  control  surface; 
employing  the  remaining  control  surfaces  with  complete  independence  gave  the  aircraft  a  limited 
ability  to  affect  its  lateral  characteristics.  This  fmding  is  particularly  significant  for  failures  of  the  rud¬ 
der  which  leave  it  free  floating  or  remove  it  entirely.  For  these  failures,  the  rudder  does  not  generate 
unwanted  forces  and  moments  which  must  be  overcome  by  the  remaining  surfaces. 

The  characteristics  of  the  aircraft,  within  the  regions  of  a//9  space  where  trim  ..ould  be 
achieved,  were  examined  to  gain  a  better  understanding  of  the  implications  of  a  failed  rudder.  It  was 
observed,  that  there  were  both  benefits  and  penalties  associated  with  being  Icxated  at  a  particular  posi¬ 
tion  in  the  trim  regioiL  For  instance,  the  equilibrium  location  at  which  the  aircraft  retained  the  maxi¬ 
mum  amount  of  residual  control  authority  might  result  in  the  aircraft  oriented  with  signiflcant  sideslip 
and  roll  angles.  Conversely,  if  the  pilot  desires  an  orientation  of  the  aircraft  which  is  nearly  symmetric, 
there  is  a  corresponding  reduction  in  residual  control  authority. 

i 
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The  advantages  to  be  gained  by  employing  the  control  surfaces  with  greater  independence, 
were  most  evident  at  the  high  AOA  associated  with  the  lower  dynamic  pressure  of  Flight  Condition  I. 

At  this  higher  AOA,  allowing  the  leading  edge  flaps  to  deflect  independently  provided  a  significant  aug¬ 
mentation  of  the  trim  region.  Most  notably,  the  region  was  expanded  in  demonstrating  an  improved 
capability  to  affect  the  lateral  orientation  of  the  aircraft.  These  observations,  as  well  as  those  discussed 
above,  indicate  that  employing  the  control  surfaces  currently  on  the  F-16  with  greater  independence, 
provides  an  effective  means  of  compensating  for  a  failure  of  the  rudder.  A  fully  satisfactory  solution, 
however,  will  require  an  additional  control  surface  which  is  effective  in  generating  side  force  and 
yawing  moment.  Thrust  vectoring  might  also  be  a  means  of  imparting  the  forces  and  moments  needed 
to  offset  the  negative  effects  of  the  failed  rudder. 


Recommendations 

It  would  seem  that  most  investigations  generate  more  questions  then  they  ever  answer.  Rela¬ 
tive  to  the  work  performed  in  this  thesis  four  recommendations  for  follow  on  work  are  proposed.  Fust, 
the  failure  of  control  surfaces  other  then  the  rudder  should  be  investigated  using  the  methods  used  in 
this  thesis.  While  information  about  other  failures  can  be  deduced  from  the  investigations  performed 
here,  a  more  thorough  study  would  provide  clearer  insight.  Further,  it  is  possible  that  the  advantages 
to  be  gained  from  allowing  greater  independence  among  the  control  surfaces  are  more  significant  then 
observed  in  this  study.  Investigating  another  failure  mode  might  highlight  a  clear  advantage  of  one  con¬ 
trol  scheme  over  another. 

Second,  there  are  two  entire  sets  of  data  taken  by  Turhal  [12]  that  were  not  subjected  to  com¬ 
plete  analysis  in  this  research.  The  wind  tunnel  data  for  the  floating  left  flaperon  and  missing  left 
flaperon  cases  should  be  curve  6t  and  subjected  to  the  same  analysis  performed  here.  The  curve  fitting 
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routines  and  the  methodology  developed  for  performing  the  analysis  are  either  currently  set  up  to  per¬ 
form  this  investigation  or  could  easily  be  modified  to  do  so.  This  analysis  would  provide  important  in¬ 
formation  regarding  the  implications  of  a  dual  failure  mode. 

Third,  a  dynamic  analysis  should  be  performed  of  the  aircraft,  where  the  model  has  been  for¬ 
mulated  to  account  for  the  aircraft  trimmed  in  the  unsymmetrical  orientation.  How  will  the  aircraft 
respond  if  it  is  trimmed  in  an  unsymmetrical  orientation?  How  has  the  aircraft  response  been  limited  if 
the  aircraft  has  been  located  at  the  preferred  orientation  of  wings  level  with  the  attending  penalties  in 
residual  control  authorities?  These  are  important  questions;  which  are  very  pertinent  to  fully  describ¬ 
ing  the  dynamic  characteristics  of  the  aircraft  which  has  sustained  a  rudder  failure. 

Fourth,  a  similar  study  should  be  performed  using  an  aircraft  that  has  some  means,  other  than 
the  rudder,  for  effectively  generating  side  force  and  yawing  moment. 
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APPENDIX  A 

For  the  experimenta!  data  recorded  in  Turhal’s  research,  [12]  each  of  the  six  force  or  moment 
coefficients  was  a  fimction  of  three  variables;  Angle  of  Attack,  Sideslip  angle,  and  the  deflection  of  a 
single  control  surface. 


(A.l) 


Three  model  configurations  were  investigated;  all  control  surfaces  fixed  at  zero  and  one  sur¬ 
face  varying,  the  left  flaperon  floating  free  and  one  other  surface  varying,  and  the  left  flaperon  missing 
with  one  surface  varying,  A  detailed  discussion  of  the  experimental  procedure  may  be  found  in  [12], 
Obviously  it  is  not  practical  to  investigate  every  point  in  the  a/yS/d  space.  Therefore,  experi¬ 
ment  data  for  a  representative  sampling  of  discrete  data  points  was  recorded.  For  the  investigation  per¬ 
formed  in  this  theses,  however,  some  form  of  functional  representation  of  the  data  was  required.  A 
least  squares  curve  fitting  technique  was  chosen  as  a  method  for  creating  a  function  which  ap¬ 
proximates  the  behavior  of  the  experimental  data.  The  following  is  a  general  discussion  of  the  techni¬ 
que  used  to  curvefit  the  force  and  moment  coefficients  and  follows  the  development  of  [12]. 

Given  a  dependent  variable  Cf  and  a  vector  of  independent  variable  X  the  behavior  of  Cf  can 
be  approximated  by  a  predictor  equation  of  the  following  form 


(A.2) 


_  =  E 

(x)  i=0 


“l 


<x) 
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Where  <t>i  (X)  is  an  arbitrary  function.  At  a  particular  value  of  X,  the  error  between  the  ob¬ 
served  value  of  Cf  and  the  predicted  value  will  be 

I 

E ,  =  c  -  E  a.  (A.3) 

J  i=0 

In  determining  the  sum  of  the  errors  it  is  important  to  recognize  that  not  only  are  negative  er¬ 
rors  as  significant  as  positive  ones  but  also  that  the  subsequent  cancelling  that  occurs  in  summing  the 
errors  is  undesirable.  For  these  reasons,  the  error  at  each  value  of  X  is  squared  prior  to  the  aummabon 
operation. 

The  total  square  error  is  then  written  as 


I 

-  E 
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(A,4) 


To  find  the  coefficients  which  will  result  in  a  curve  fit  with  the  minimum  sum  of  the  square  er¬ 
rors  the  expression  for  t^  is  differentiated  partially  with  respect  to  each  coefnchnt  Ai.  The  correspond¬ 
ing  equations  are  then  set  equal  to  zero. 
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The  I  -t-  1  equations  can  then  be  places  into  a  Matrix  equation 
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W  II  ►-)  Wll  W  II 


[  A]  <a>  =  <b> 


(A.9) 


where  [A]  is  a  s>inmetric  matrix  of  the  following  form 
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Since  [A]  is  square  and  nonsingular,  the  coefficients  of  Ai  may  be  found  using 


<a>  =  tA3  ^<b> 


(A.ll) 
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For  the  curve  fitting  accomplished  in  this  thesis  the  function  cp  was  chosen  to  be  a  polynomial 


in  three  variables.  Therefore,  Cf  took  on  the  following  form 
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Where  the  values  of  ‘A’  determined  from  solving  the  linear  problem  become  the  coefficients 
which  multiply  the  respective  polynomial  terms.  For  the  work  done  in  this  thesis,  it  was  helpful  to 
separate  those  polynomial  terms  not  associated  with  a  control  surface  deflection  from  those  which 
were.  The  zero  defection  terms  were  written  as 
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In  effect;  this  set  of  terms  represents  the  variation  of  the  force  or  moment  coefficients  with  all 
the  control  surfaces  set  equal  to  zero.  The  total  value  of  the  force  or  moment  coefficient  including  the 
effects  of  each  control  surface  is  then  written  as 

7 

C  (a,/?, 6)  =  C,  +  E 

^T  0  k=l  (A.14) 
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The  FORTRAN  computer  codes  used  to  accomplish  the  assembly  and  curve  fitting  of  the 
wind  tunnel  data  may  be  found  in  Appendix  B.  There  codes  are  currently  configured  for  and  will  com¬ 
pile  on  a  UNIX  operating  system. 

It  should  be  noted  that  the  final  summation  is  over  the  seven  independent  control  surfaces.  It 
was  assumed  for  the  curve  fitting  that  the  contribution  of  each  control  surface  may  be  summed  together 
via  the  superposition  principle,  and  that  each  control  surface  was  of  the  form 


'f<51 
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(A.16) 
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APPENDIX  B 

Contained  in  this  appendix  are  the  two  FORTRAN  codes  which  were  used  to  perform  the  cur- 
vefits  of  Turhal’s  wind  tunnel  data.  Polyfitb.for  is  actually  just  a  variation  of  Polyfita.for  which  was  used 
to  develop  the  predictor  equations  for  the  control  derivatives.  Its  primary  difference  from  Polyfita.for  is 
that  it  calls  in  the  polynomial  fits  that  were  derived  from  the  "zero"  case  data  and  then  uses  these  polyno¬ 
mials  as  the  basis  upon  which  the  curve  fits  of  the  other  data  sets  is  built  up  from.  A  mere  detailed  dis¬ 
cussion  of  this  procedure  is  given  in  Chapter  II.  The  programs  are  formatted  to  operate  with  a  UNIX 
operating  system. 


Potyfiu^for 


c  POLYFITA-FOR 

^  ••«••••«•••«••••««««««««««««•««««•««««««•••••••««••«««• 

e 

c  L  Hudtoti 
c  Cap<  S.  ZiMwr 
c 

c  Tbit  prognuD  will  perfono  a  lieM  aquaret  cuive  fit  oo 
e  «jqMriaieQUl  dau  wtueb  it  read  into  tbe  prognun  boo  exiauag 
c  guide  and  data  fika,  Tbe  required  fonna  for  ibeae  filea  say  be 
c  found  in  oommenta  in  ebe  program  Tbe  propio  ia  currenUy  oonfigured 
c  to  aiieopt  to  fit  tbe  e^ienaiental  data  with  a  predictor  equation  which 
c  baa  a  poiynoaial  fonn  and  ia  a  funebon  of  three  variables  alpha,  bcu, 
c  andddta.  A  detailed  diacuaaion  of  (be  tbeoiy  of  chia  proyiqunay  be 
c  found  in  Appendii  A  of  tbe  tbeaia.  For  cate  of  uee  the  profraoi  ia  coenu 
c  drtvea 
c 

c  See  Nuoaerical  Redpeca  for  aubroucioca  SVDCMP  AND  SVBKSB 
c  veraion  Ol  Aug  99  SMZ 
c  16Scp99 

c  Tbe  guiding  file  abouM  have  tbe  fohowing  foraac 

c 

c  line  1:  uUe 

c  line  2:  output  fdc  oaoe.  Tbe  curve  Gl  eoef  eod  up  is  thia  Qe 
c  in  tbe  fora  of  dMa  arateaenia. 

e  line  3:  aut^oe  rWaigparion,  appanded  to  tbe  raauto  d  charaeun. 
c  line  4: 01,0^.18  tbe  faigbeat  powora  deaired  ki  tbe  orvt  firw 
c  line  5:  oucdW  of  data  filea  to  be  Chad 

c 

impbdt  rcal*8  (a-h^i) 

c 

peraoMKer  (Bax,daca«S<IOO) 

c 

teal*8  liiDita(3,2),erTor 

real*8x  da(a<3.max  da(a)or  datafaai  9atM),<hoko$ 
reel*8  a^(IOAd)j<l,1000),VfOOAd)XU) 
c 

cbaraclar*  50  rdename^oucrtlr.guide.afiie.gfUe 
character*  80  titk^uthor.data.fadltcy.dace 
charaetcr*S  aurbea 
cfaaractar*2  force 
character*!  aneaiar 
c 

integer  eona,vartvar2 

integer  ia(I0Ad),ih(l0|]i,d),id(!0Qld),ao_fcna(d),i_taa8 


cotBAoo  /pvn  I  ia.ib,iiloo.fcnaJ_fc& 
e 

eseroal  O 
external  aqr^err 
c 

10  print*  . . . 

print*'  MENU 

prim*,  •’ 

<•••*••»*•••••••••••••••••*•> 

prim  *.  X  Read  in  data  Glea' 
prim  *.  *I  Curve  fit  dau’ 
prim  *,  1.  Graph  dma  and  curve  fit* 
prim*, '4.  Evaluate  tbe  aquara  error' 
prim  *,  '5.  Write  rcauJia  to  file' 
prim  *. 'd  Create  grapbiDg  Glea’ 
prim  *  7.  Eat  prograa’ 

<••••••••»••••••••••*••••••• 

prim*,” 

prim  *.  'Enter  adactioa:’ 
read  *,  cboioa 
c 
c 

if(cboica,eq.l)tbcB 
goto  20 

dae  if  (cbotfla.<^2)  then 
goto  200 

dM  if  (cboioa  eg,  3)  tbao 
writefA*)  ’PjaiMad  return  to  acou’ 
goto  20 

dee  if  (<d>oineeq4)  tbeo 
goto  675 

dee  if  (cboioa^qj)  tbcB 
goto  725 

dae  if  (cboic«.eg,d)  tbaa 
goto  625 

ede  if  (<boiea.e^7)  tbeo 
goto  750 
ede 
goto  10 
endif 
c 

c  Tbe  data  Glea  art  in  tbe  fora 
c  coluon  oa  item  daacripooo 
c 

c  1  iteo  nuaober  for  tbe  data  file, 
c  2  angle  of  attack, 

c  3  dynamic  praaeure 
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2 


irCx(2.k).glLb^cDai)  b^a}ax"x(2,k) 
ir(x(3.k}.gLd_maij  d_aui*x(3.k) 


c 

4 

yawing  moment  coefficient 

c 

5 

rolling  moment  coefficient 

c 

6 

pressure  coefficient 

c 

7 

lift  coefficient 

c 

8 

drag  coeflickiK 

c 

9 

pitching  moment  coefficient 

c 

10 

side  force  coeffident 

c 

n 

yaw  angle 

c 

12 

notuaed  — -OiO 

c 

13 

notuaed  - 0.0 

c 

c 

c  ibe  column  identificn  for  respective  vslues 
20  ibetj«U 
iaipba«2 
aifl-7 
idfag«8 
istde«l0 
iroil«5 
ipticfa»9 
(y»v*4 
c 

c  Enter  tbe  ruioe  of  the  fik  oonuining  tbe  informstion  to  guide  ibe  prognm 
c  tbrougb  the  deui  input  process 

c 

wrie(<^*)'Enter  tbe  ^ude  fife  nemc' 
read(5.31000)  guide 
«ti(c(^31000)  guide 
open(  IS, file*  guide,  ttjtus* 'old') 
c 

c  Tbe  guide  rde  oontiaos: 
c  I  Tide  of  tbe  guide  file, 
c  2.  Outfile  neoe.(noc  used) 
c  3.  Tbe  control  iuiieoewbicta  is  being  varied, 
c  4.  Not  used 

c  5<  Tbe  number  of  data  files  listed  in  tbe  guide  file, 
c 

re»d(U.  10000)  title 
writefd,*)  tick 
resd(U.82000)  oucfile 
wnte(d*)  out^ 
reed(lS,S3000)suifMS 
wriie(V)  eut&ee 
re»d(lS,*)  ni.a)r.ai 
resd(lS,*)nriles 

eritefd*)  Tbe  number  of  files  •  ‘.nfiles 
e 

c  InitieliM  mssinmm  values  to  zero, 
c 

np(j»0 

k«0 

c 

s_min«it0el5 

b^min«L0et5 

d_min«iL0el5 

a^mazM-LOeU 

b_,Dax«>L0elS 

d_inex«-1.0elS 

c 

c  Open  Guide  files  end  assign  tbe  wind  cunoel  data 
c  to  (be  appropriate  arrays  for  curve  ftOinf, 
c 

do  lOOiatofiles 

read(l5.90000.«nd«7S,siT«95)  (fikosaMCiUl).ll*L19),dclts 
whte(d30000)  fPenatpe 
opeo(14iae*fikname,sfafiM»*otdT 

c 

c 

do5Oj«l.d0 

re«KH*.«ad-75,«rr«8S)  (s(kl)41-LU) 

c 

c  Tbe  a  mecrti  eootaios  tbs  values  of  alpha, 
c  beta,  and  curtMa  daflsetioo  raapecdvely 

c 

i(U)-s(ialpba) 

c 

c  Tbe  si^  on  tba  beta  readinga  is  negated  to  conform 
e  to  standard  oomeooon  (wind  from  tbe  right). 

c 

a(2.k)- (-1)  •  tfibma) 

:<3,k) -delta 
c 

if(^lJt).lLa_min)  •_(Din-kl4) 
iffa(2,k).lLb.aMn)  b_min-]d2.k) 
if(i^3,k).ILd.min)  d_ain-k3.k) 
iff^LkX^.max)  s^aiax*i(l.k) 


w(k.l)-s(ilift) 

w(k.2)-i<idfag) 

w(k.3)-s(iside) 

w(k.4)-s(ipitdj) 

w(k.5)-f<iroll) 

w(k.6)-s<(yaw) 

c 

50  continue 
7$  close<l4) 

goto  100 

8S  write(6^*)’Have  bad  an  error  in  reading  '.filename 

clo#e<!4) 

100  continue 
doaeflS) 

npts-k 


«nte(d*)  Tbe  daU  varied  aa  folto-s:' 
wrStefd*)  a_min.'  alpha  '.a^max 
wr<te(<^*)  b^rnm,'  bcu  ’.b^raax 
writafd*)  d_mia‘  delta  ’.d^maa 


c  Return  to  menu 
c 

goto  10 

200  wnte<^*)’Whicb  force  coefficient  do  you  w«h  to  curve  fit?’ 
«(rite(6^*)  ‘{Enter  tbe  corresponding  number.)' 
wnte(<^*)  '1  lift* 
wTitef^*)  *2  drag* 

•ritefd*)  3  side  force* 

>vhte<d.*)  ‘4  pitching  moatent' 
wntefd,*)  ‘5  rolling  motseot ' 
writefd^*)  '6  yawing  moment* 
writefd,*)  T  or  greater  for  listing  the  data* 
read(5.*)  ifk 
if(ifit.fLi)  tbeo 
c 

writaf^*)  ‘Wbkb  data  do  you  wish  to  examiDef 
write«^*)  ‘(Enter  tbe  cocteaponding  number.)’ 
wri««^*)  ‘1  lift’ 
wTitaC^*)  1  draiT 
wnte«^*)  ‘3  aide  force’ 
write(6^*)  '4  pitching  CDOOsent' 
eTice(4*)  ‘S  rolling  moment  ’ 
eritefi^*)  yawing  moment’ 
writefd,*)  *7  alpha' 
writefd,*}  ‘SbM’ 
whie(4,*)  *9  delte’ 
read(5.*)  icam 
if(i6ain.lL6)  then 
do  400  ijk-  Uoptf 
whi«(^»)w(i)k.ieaa») 

400  continue 
elaa 

writefd^*)  VoiiHl-*jaanh4 
doSCOijk-tnpte 
•Tite(«^*)  t^iaam^ijk) 

SOD  continue 
end  if 


c  Define  tbe  form  of  the  pdyoomiel  to  be  curve  Cl 
c 

can  Mdpwrtifil) 

550  continue 
c 

c  Perform  tbe  iKaqrs  curve  fit 
c 

ceB  litaqr  (C3ij)oJcns(iflt)A«(Ufit),opu.ooef(tifU)) 
do  600  ijk-  Lnojcnsfjfit) 
c 

r  Write  tbe  reautta  of  the  cutve  fit  to  tcreca 

c 

writef  6.60000)  tjtie(i)kJfitXib(ijk.i'it),id{ijk.ifitX 
X  cocf(ijtifk) 

600  continue 
end  if 
c 

c  Return  to  moM 
c 

goto  lO 
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c  GRAPHER  AND  SURFER  FILE  CREATION 
c 

625  whte<6,*)'WbicbdoyouwtmU}boklcon»um?' 
wnie(<^*)‘  t  alpha’ 
write(<i,*)'  1  b«a' 
whte(6^*)'  X  ddta’ 
read(5.«}  COM 
c 

whte(6^*)’Wbai  m  the  Gnt  variable?' 
whie(<^*)’  L  alpha' 
writc(6^*)’  2.  beu* 
wnte(6,*)’  X  delta’ 
read(5.*)varl 
c 

wnie(6.*)'What  ia  the  aecond  variable?' 
wnte(6<*)’  L  alpha’ 
wnte(6<*)'  2.  b^’ 
ariteC^*)’  X  deJtj' 
read(5,*)  var2 
c 

c  initialtic  liisita  matrix  with  variable  ranges 

c 

tiffliu(l.l)*a,min 

(imita(U2)«a_max 

limita(2,l)«b_aun 

limita(2.2)«b_(nax 

limiti<Xl)*d_(Bin 

Iiffliu<3,2)«d_max 

c 

c 

650  wnte(6^*)‘Tbe  ran^a  on  the  conaunt  ta:‘ 
write<6,*)limica(eona,lX’  oonatanc  ',limiu(cona,2) 
wnte(6,*)  *00  you  warn  to  change  it?' 
read(5, 80000)  anawer 
if(ana»«r.ec|.y  .or.  anawor.eq.'V)  then 
wnte(6^*)'Wia(  abould  the  lower  value  be?' 
read($,*)  liaiita(cona,l) 
wnte(6,^)'Whai  abould  the  upper  value  be?* 
read($,*)  liai<ta(oona,2) 
goto  650 
endtf 
c 

e  Search  for  tboae  esperimental  data  pointa  which  fall  within 
c  the  variable  rangea  defined  above, 
c 

call  nndjNa(:aw(Xifit).op(ajt.data,/_daca.ndau.liAiu, 

X  oona.varLvai^) 
e 

c  write  the  variable  valuea.  force  or  mooMni  valuea.  and 
c  evaluated  vaiuei  to  a  data  file  for  evaluation  in  'grapber' 
c 

wnie(6,*)  'Do  you  want  to  create  a  Gripoer  file?' 
read(S, 80000)  amwer 
c 

if(anawcr.e4.y  or.  anewer.e4.'Y*)  then 
wnte<6i*)  ’^tcr  (be  Ole  naotc  wNh  .dac' 
read(5jl000)  gCk 
c 

opeo<  lOfile  ■  gGlejtatua  « 'unknown’) 

c 

do  665  i«l.ndata 

vaJl  ■  evlaqrtt3.ooef(l,iCtXno_fcna(irK)j[_d8ta(l.’)) 
c 

c  The  Grapher  file  wil  have  the  fohowiog  form 
ccc^'moooL  kaa dcacrlphoQ 
c 

c  1  VakMoftheamvwteUa 

c  2  Value  of  ibaMeoodvariiMa. 

c  3  The  e^wteeaial  data  vahia  at  that  point 

c  4  The  OHva  flti  vahM  at  that  point 

c  5  ValuaofttMVHteWebcidoooetaol 

c 

wnte<l<U2000)  i_dMa(virU)J_datt  var2»i)or.datafiX 
X  valLx_da(a(eooi»i) 

665  continue 
doee<10) 
enu  if 
c 

c  write  data  to  a  file  for  evaluation  of  contour  plots  in  the 
c  ’surfer'  software.  Tbeat  dau  files  contain  predicted  values 
c  of  the  fores  or  BoaMm  as  •  function  of  the  two  specified  variaMei 
c 

writeff^*)  *00  you  want  (o  create  s  Surfer  file?' 
read(S, 80000)  «Mr 

c 

iffanMcr.e^y  .or.  anawar.eiv'Y')  then 


call  suff(coef(l.ifjl),limiis.irn,cnnt,varl,var2) 
end  if 

c 

c  Return  to  menu 
c 

goto  10 
e 

c  Define  the  r  squared  value  of  the  curve  fit  and  provide 
c  the  opportunity  to  modify  the  fons  of  the  pofynomial 
c 

675  error  •  tqf_errttw(l,ifit),nptj.coef(l.ifit).ifit) 

write(6k*)  ’ .  . . 

wnu(^*)  The  value  of  r  squared  is  '.error 

write(6<*)  • - - - • 

whte(6i,*)‘What  do  you  want  next?' 

write(6k*)’  t  Remewe  pcevers  from  the  approsmating  funcooos’ 
whie(6i.*)’  and  refit’ 
whte(6^*y  lAddpowen' 
whte(6^*)*  X  Ouk’ 
read(S.*)  ijMk. 
c 

if(Ltaik.eq.l)  then 

wriie(6k*}'  What  is  the  smallest  magnitude  you  wish  to  keep' 
wTitef^*)*  in  the  current  fit?* 
read(5.*)  bound 

call  nB^oocf(oocf(UifitXbound.ifit) 
gotoSSO 

else  if  (Ltaak.eq.2)  then 
call  addcoef(coef(XiCt),ifit) 
goto  $50 
else 
c 

c  Return  to  menu 
c 

goto  10 
end  if 

725  call  output(cocf(Uifit),ifiterror) 
c 

c  Return  to  menu 
c 

goto  10 
c 
e 

10000  format<a80) 

20000  fortBat(2l.el5.8J<2xi3V  cocC  ia,  ib.  id  i3) 

30000  formaifi^’readini  &x«  ‘  ^40) 

31000  roraa«a50) 

32000ronsat(5(U«l5.7)) 

60000  rormatC  fen  no-’, A’  ia»‘,i3,’  ibw’.A’  idw'.iX’  coefw'. 

X  etI5) 

80000  fonnatfal) 

82000  forraat^adO) 

83000  formatfaS) 

89000  foniiat(i<’  alpbaw'.nOJ,’  beia«',nQlS.’ddta*’.D.2. 

X  ’coef-’.2na5) 

90000  ronDaK2kl9bUx45.2) 

750  STOP 
END 
c 


c  L^rSQR 

c 

subroutine  IstaqrffiasctanCkv.npti.eocf) 
imphdi  rears  (a-h.O'a) 
paraoMCar  (owaa*  100) 
c 

c  funoo  it  an  ^phdlfijOGbon  giving  the  set  of  fitting  functions 
c  to  be  usad  a  the  least  squares  cutys  fioing  process, 
c  It  hss  tbs  foimig  paraacur  list: 
c  fiinctnf  nfncjLk ) 

c  The  arguaMms  ire; 

c  nfnc  «  the  idsotificatioo  mimbcr  of  the  functioo  to  be  used, 
c  X  wanarTayofanjuosoaoftbefuoctioQ. 

c  k  •  the  indo  to  the  tTgumenc  to  use  in  the  evakiatioo 
c  of  the  fuDOiosL 

c 

c  nf  is  the  number  of  hmehoos  cooiained  in  the  family  of  functiona 
c  provided  by  fusKCiL 

c 

c  I  is  the  array  of  vahies  at  whtefa  the  known  values  are  givea 
c  It  may  be  one  dimensional  or  muhi-dimenaional 

c 

cw  is  the  array  of  koMn  values  to  be  curve  fitted, 
c  opts  is  the  number  of  points  to  bs  curve  fitted. 
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c  coef  bibeamy  of  cocfTtcienu  weighting  the  funcuofts 
c 

reil*8^1),w(l),coef(I) 
reaJ*8  a(maize.fi»izeXfttt(ai«ze) 
esemai  functn 

c 

c  AasemWc  the  OBatrkiei  to  be  uaed  In  determining  the 
c  coeCdeou  of  the  polynoaiiai  predictor  equatioa  A 
c  defaded  diacueioa  of  (be  ooopoeicioa  of  cbeee  matrioei 
c  may  be  found  by  referencing  the  tbeaia. 

c 

do  400  i«  tnf 

wnie<d^*)'Secting  up  cquabon  no’.i 
do200j»Unf 
a(i0)-a0 
do  I00k«tnpu 

a(ij)»a(ij)  ♦  fufKtn(U.k)*fuoctn(jj(.k) 

100  continue 
200  continue 
fh*(i)«0i0 
do300k«lnpu 

rh»(i)«rha<i)  w  functn(ut.k)Sv(k) 

300  continue 
400  conunue 

wnte(6i,*)S>Mng  tbe  linear  equations  in  Istsqr' 
c 

c  Sotve  tbe  linear  pcobtem  which  has  been  setup. 

c 

call  ivd  soh«(a,rha,ooeCntnf,aisde,fflsae) 
c  do  ^i-lnf 
c  writefd,*)  i,  cocf(i) 
c  SOO  continue 

wnte(d,*)’Ftoisbed  in  btaqr.' 
return 
end 
c 

^  •••••••••••••••••«•••««•«••••«••••••••«••••••• 

c  SOR.BRR 


real*8  funeiioa  aqr^errtxiw.nptaiCOcCi.fa) 
e 
e 

c  Tbe  purpoae  of  this  subprogram  «  u>  caki.i  .te  (be  value  of 
c  r  squared  ae  a  measure  of  tbe 'gcx>dneas' of  tbe  curve  He 
c 

implicit  real*8  (a*h,o>z) 

real*6 1(3. 1000), oocf(l),w(  l),errorauBi  locrr.esqr 
real*S  sum2.iua3.niqr.peaa.wmiawma« 
integer  ia(  100.d).id(  I00.d).oo_fcoi(d) 

comtDOO  /pars  /ia,ib.iilao.fcm,i^fco 
etternal  O 
suml  ■  (LO 
juitt2  ■  0.0 
suai3  ■  OlO 
wmui  ■  L0el5 
wmaa  « -kOeli 
do  lOOi «  Unpea 
'f(M>)*^a'BiBX)  wmax  ■  w<i) 
suml  ■  aual  w  v(i) 

100  continue 
mean  ■  suol/nptt 
do200iaiUnp<* 

eaqr  •  n4iqr(f3.coe£ao,faie(i^ai>j<  U) ) 
errorl  •  w(i)  •  e¥iiqr<f3*ooetno_fca^^fa)j<U)) 
sum2  •  sua2  ♦  (ernirl)**! 

•ua3  ■  sua3  *  (w<I)  •  bm)**! 

ZOOoooiiDut 
rsqr  ■  1  •  (aua2  /iumS) 
sqr^err  ■  nqr 
return 
end 


c  P3 


reat*8fuoctioa  0(ijUt) 
implicit  realms  (a^o>s) 
real*8<3.1) 

integer  laf  lOOldXibf  100td),id(  100d),no.fcns(6) 
common  /pwn  /ia.ib,id.no_fcmj_foa 

if  (i.^100)  wnie<6^*)  ****  ERR  •  undadared  function  for  (•'.i 


alpha  «  x(I,k) 

NMj  -  Kik) 
delta  «  i(3.k) 

D  ■  poly(>a(i.i_fcn  ).aJpha ) 
f  •poiy(ib(i,iJcn).bcu) 

X  *poly<id(U_fcn).ddta) 

return 

end 


c  BLDPWR 


subroutine  bidpwr(i_^fn) 
c 

c  Tbe  purpoae  of  tbe  subprogram  is  to  syttemjiicaUy  create  s  common  lUt- 
ment 

c  which  definea  tbe  polynomial  terms  to  be  used  for  acoomplisbing  tbe  curve 
c  fiL  In  general  tbe  polynomiaJ  will  iiJvoK«  combinations  of  three  varnaMes 
c  See  Ref  in  appendix  A  of  tbeaia. 
c 

integer  ia(  10Q.6).ib(  100.6).id(  100,6), no_fc(u(6) 
common  /pwn  /ia,ib,KLno_fcna^i_fcn 
integer  alp.  bet.  dal.  comb 
c 

i^fcn  •  i^fn 

50  wnte(6^*}’Doyouvant  to' 

whte(6k*)'  L  Generate  all  oombtnationaof  powers' 
write(^*)'l  Enter  speofic  combinations  of  powers 
read(5.*)  ij 
c 

tf(ij.aq.l)  then 

whte<^*)  'What  order  do  you  want  alpha  fit  to  be?* 
read(5.*)  na 

whte(6^*)  'What  order  do  you  want  tbe  beta  fit  to  be?* 
rcad(5.*)  nb 

wnte<6.*)  What  order  do  you  want  the  delta  fit  to  beT* 
read{5.*)  nd 
k«l 
c 

c  Tbia  routine  geacracea  ail  permutauooa  of  the  powen  ipeofied 
c 

do  JOOil-am 
do200i2-anb 
do  I00i3*0tnd 
ia{k.iJcD)»il 
>b<k.i^fcD)«i2 
td(k.i  fco)wi3 
k*kwl 
lOO  continua 
200  contioiM 
300  oontioue 
comb*oa*ob*nd 
dee  if  (ij.eq.2)UK  ' 
c 

c  Tbie  routine  aioiv  l  x  tpocificatioo  of  a  specafie  sec 
e  of  terma. 
c 

k»l 

prim*  'enter ibaoumber of combinaciona dcaired’ 

read  *,  onmh 

do800J*l.oomb 

prim  *.  'buiMiDg  oombinatioo’.  k 
prmi  *.  'aotm  iba  powar  on  alpha’ 
read*  dp 

prim*,  ‘aotarthapomaroobata' 
read*.bm 

prim  *.  'tnlar  lha  powar  on  delta’ 
read*,  dal 
ia(kjJeo)-alp 
ib(kjjcn)*bm 
id^  fen)  add 
k>k^l 
SOOooatioua 


goto  so 
end  if 

do900jaLeo(9b 

*  “(y ib(jj_fcn),  id0.i_fcD) 

900  continua 
no_fcna(i_rcD)  «  k  •  1 

wnta(4*)  nojenafi Jen),'  functioni  iottialded  m  btdpwr.’ 
return 
end 
c 

g  ••••«•••«••••••*•••••••••••••••••••••••••»•••••««•< 

c  EVLSQR 


75 


reaJ*8fui)ctK)n  evteqf^functjxcoef.nCi) 
implicu  reai*8  (a-h.o-z) 
c 

c  This  functions  cviJus(«s  the  curve  fit  at  ibe  Tint  point  in  x 
c 

real*8coef(l)j((l) 
eoenul  functn 
c 

evtaqr^OlO 
do  lOOia^nf 

evtsqra^teqr  4-  coef(i)*functii(gK.l) 

100  continue 
return 
end 


reaJ*8  functioa  poiy(nfne^) 
implidt  reel*8  (a-h,o-z) 

This  function  returns  values  of  the  family  of  poiynoaiials. 

nfnc  givee  the  power  to  raise  i  to. 

if(nrn&eq.O)  ibeo 
poly-LO 

else 

if(xeq.Q.O)  ibcn 

poly*a0 

eke 

polywi**nfee 
end  if 
end  if 


tubrouune  addcoef(cocf.i  Jn) 
implidt  reai*8(a'h,o-z) 
c 

c  The  purpose  of  this  subroutine  is  to  provide  a 
c  meana  for  adding  polynotaial  terms  to  sn  essting 
c  predictor  equation 
c 

reai*8coef(l) 

integer  ia(100.6)Jb<100,6).id(100;6).no_fcns(6) 
integer  comb.neeciD 
common  /pen  Aa.ib.id.QO^fcna.i_fcn 
print  *,  'enter  tbe  number  of  additional  combinations  dcMred' 
read  *.  comb 

♦  no_fcni(i^fn) 
c 

c  Assemble  tbe  additional  potynomial  terms  and 
c  append  them  to  tbe  essting  polynomial, 
c 

do800j«l,comb 

print  *.  ’building  combination',  t 
print  *,  'enter  tbe  pmvcr  on  alpha’ 
read  *.  alp 

prim  *  'enter  tbe  p<^a«r  on  beta' 
read*,  bet 

prim  *,  'enter  tbe  pcmcr  on  ddu’ 
read*,dd 
ia{k.i.fc»)*alp 
tb(k.i  fcn)Bbet 
id(k.i  rcn)-dd 
k«k4>l 
800  continue 

no^fcnsfi^fn)  »  no_fcna(i_fn)  ^  comb 

return 

end 


subroutine  rv.cocf(coeCbound,i,fn) 
implidt  rcal*8(a-b.oz) 
real*8oocf(l) 

integer  ia(100i^ib(100i,^id(l00,^,nojcm(6) 
common  /pwn  Aa.i^id,no_fcm,i,fco 
c 

c  Tbe  purpose  of  this  progran  is  to  remove  (hose 
c  polynomial  lenas  whose  ooefidents  are  smaller  (ban 
c  a  spedCed  value.  This  routine  needs  wort, 
c 

wrjte(^*)ln  nn^coefwitb  bouodw'.bound 
wTiie<<^*)'no_fa]s  •’.no_fcna(i_fn) 
write<«^*)1  fn»’,j  ta 
i  -  1 

100  continue 

if(dabe(oocf(i)).tt.  bound)  then 
if(Lne.ooJcns<j.fn))  tte 
do  200  j«i,no^fcRS(i_0i>'l 
ia(^i_fn)  ■ 

ib(},i_fa)  •  ib(j-4l,i,&i) 
id(jd^fb)  ■  idO'^U^hi) 
oocf(j)  •  ooefO*^!) 

200  continue 
end  if 

ie(oo_faii(i.fh)j.hi)  ■  0 
ib<oo^fcae(i^b)d.bi)  •  0 
id(no,fcns(i.te)>i.fb)  •  0 
co<f(oo_fer^i_te))  *  QlO 
no_(cns(i.b)  ■  oo_fciis(i.&i)  •  1 
end# 
i  ■  I  ♦  1 

ifflleJM^fensfi^fn))  goto  tOO 
wnte(<^  10000)  nojcnsfijn) 

do  300  iw  l,no_fcm(L^) 

write<^20000)  i,ia(M.fn),ib(M_fn).id(i,i^fn) 

300  continue 
return 

10000  fonnaif’  Tbe  number  of  functions  is  '.i3) 

20000  formatf  K'  ia«'.i3.'  ibw’,i3.'  ida'd3) 
end 


subroutine  ouiput(coe£,ifit,faqr) 
c 

c  Tbe  purpose  of  thk  subpropmn  is  to  write  the  values  of  tbe  pdynomiaJ 
c  coeTickau  and  rmpective  powers  to  an  output  nie. 


integer  ia(10(l,6).ib(100,f^id(10IX8)4>oJcm(6) 

common /pwra  Aa.iKid.ao  fena.i  fen 

real*8oocf(l) 

real*8raqr 

character  *40  data 

character  *  14  control  force 

^inot  *.  ’Enter  tbe  Gk  aame* 

read(5.l0000)  data 

open(  IKTUewdatajtacusa 'unkotwn') 
print*.  'Enter  tbe  control  surface;’ 
read(5.l5000)  control 
print  *,  'Enter  tbe  force  bemg  Gc:’ 
rewlfS,  13000)  force 
wnte(lK*)  control 
writeflK*)  fowe 
wTne(lV)  raqr 
write(lK*)  no.fcnefiCc) 
do  100  i^w  Coo^fensfifit) 
c 

c  Tbe  output  Gk  wdi  have  tbe  foUowing  form 
c  column  na  itsa  deecripoon 
c 

c  1  Counter  of  term  number, 
c  2  Power  on  alpha  for  that  tarn 
c  3  Power  on  beta  for  thee  term, 
c  4  Power  on  deka  for  that  term 
c  5  Coefirient  aseoriared  with  that  term 
c 

wntc(lK80000)  ijk.k(i}k.iGt).ib(ijk.>Gt),id(ijk.ifit), 
z  eoeffijk) 

100  continue 
c 

doee<U) 

wnte<K*)  ’output  Gk  oompkie' 

10000  formacfs40) 

15000  formatfaU) 

80000  foraaif  4(  Ui4.2).  UfiaS) 
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end 


c 

c 

c 

c 


c 


c 

c 

e 

e 

c 


c 

c 

c 

c 

c 

c 


c 

c 


c 


FiND.rrs 


iubroutifM  find j)U(:(y./)o_d«ea»zjxa>yj>c«.oo jxj,iia]iu, 

I  con«,vBrl.var2) 

The  purpoM  o(  ibif  routine  m  to  »etrcta  ttarougb  a  lei  of  data  poinia,  x. 
and  coitect  (be  pointa  which  fail  within  the  limits  spedfied 

z  «  •  points  in  the  domaiiL 
y  •  «  functiooai  vaiuea  aaaodaied  with  x 
no^data*  ■  number  of  data  points  total 
xjMs  «  w  poinu  wbicfa  Kt  found  within  the  limiu 
y  jKs  ■■  >■  functional  values  associated  with  xjhs 
no  jpcs  ■  w  number  of  points  found, 
limits  •  ■  the  bounds  o(  acceptability  on  the  data  pomti. 
limitfij),  jw  t  for  lower  limit 
j«2  for  upper  limit 

constant  ■  the  variable  which  is  held  constant 

inteier  conStVarl,var2 
rcal*8x(3,l).y(l) 
real*8xjHs(3,l),yj)ts(l) 
real*8  iiffl?ts<3,2) 


no_pts  •  0 
do  300iwt,oo_data 

if(x(oons,i).(t.liiiii<s(oons,  1  >  .or. 
z  :<oons,i).gt.lifiii(s(ooaa,2))  goto  300 

nf  it  gets  bcre,  then  it  is  within  bmica. 

nojxs  w  aojKs<fl 
x_pts(varl,oo_pa)-:^varU) 
x_pts<var4fto_p(s)-i<var2J) 
x_pts(coas,no  jNs)  wi(ooQs»i) 
yj)«(ooj«)-y(i) 

300  continue 
feuira 
end 


SURF 


subrouunc  surf(cocClimiu,iCt.oonstvarl,var2) 

The  purpose  of  this  subpropam  is  to  create  an  array  of  data  for 
use  in  'SURFEJl'.  The  fine  eohiao  of  dacs  is  the  Tint  vsriable,  the 
second  the  aeoood,  the  third  is  the  evalusted  fores  or  mooeot  value 
and  tbs  fourth  ootumn  ia  the  valus  of  tbs  vsriabk  held  coostaoL 

implkai  realms  (a-h.O'S) 
psrsoMter  ( oo_dn«w2S) 
character  *  dOsfile 
real's  x(3),di(3),cr-:f(l)JiaBta(12) 
real*!  sfno^diMf  ♦  l),t(oo_dfvs4^  t)j<oo,dh«4 1) 
integsr  ia(l^S),ib<10llS)[id(10(lS).(ioJcaikeona,varl.var2 
/pwn  f»^idjioJcm(€^Jea 
aoeraalO 

Geasrata  dKa  amy  to  be  ploiia4 

d  x  •  (limila<vBrU2)  -  8miiB(varLS))te  dbn 
d^  •  Oimta(v«2JO  •  lieMa(vM^l)VboI«v• 

Initialiastbst’ariabishitbsaartaywbichiiooQStant 

KD*  (U'fisBiiaftl)  ♦  ItoitsfU)} 
x(2)«  a5«(Ula(Zl)  ♦  imila(X2)) 

43)-  a5*(lUls(3il)  ♦  Maiia(3^) 


writefdt*)  ’Enter  the  Qe  naow  with  .dac*’ 
read<531000)srde 

open(  1  LflewiClejtatusw’uofcnowo') 
do  130J*tao.dM 
i(j)  -  limitsfVll)  ♦  OD^djr 
do lOOiwUno  diva 
sfi)  -  Itmitsf^ll)  *■  (i-l)*d  a 
i(varl).s(i) 


x(var2)-t0) 

y(i)  ■  evtsqrlf3,coeCno_fcns(irit)ji) 
wnte(tU2000)  s(vsrl)ji(vsr2),y(i)Ji(cons) 
100  continue 
150  continue 
cloM(ll) 
return 

32000  fonnatfjdO) 

32000  fonnat(4(Uel5.7)) 
end 
c 
c 

g  . . . 

C 

SVD^SOLVE 


subroutine  ivd  aoKe<s.bjtn.m.np.mp) 
implicit  real*8(s^o>z) 

Paraoetar  (nmax*  lOO) 

real's  A(mp.opXW(nmazXV(nmaz"2) 

c 

call  tvdcmp(s.nAop.mp,w.v) 
wmaz  m  0.0d0 
do  lOOjwUo 

if  (w<j).gLwiBax)  wmax  ■  w(j) 

100  continue 
wmin  w  wmax*t0d>12 
do200j-U 

if(w(j).lLWTDin)  w(j)  ■  aOdO 

^  eominus 

call  fvhbsb(s.w.vAAnp,fflp,bji) 

return 

end 

indude  «dcap.for 
indude  Ahbsbior 
Polyfithfor 


c  POLYFTTRPOR. 
c 

c  versioa  01  Auf  SS  SMZ 
c 

c  The  ipading  fik  should  have  the  foOowtng  format: 
c 

c  line  i;  tide 

c  line  2:  output  fiW  QMML  The  curve  fk  oocf  end  up  in  (his  Gk 
c  in  the  form  of  data  scatemetMa. 

c  line  3:  surfsos  desipiatioa  appended  to  the  results  6  characters, 
c  line  4:  nx»ay^  the  higbam  powers  desired  in  the  curve  Dts 
e  line  5:  number  of  dma  C9es  lo  be  read, 
c 

impbdt  real's  (s-htO-x) 
parameter  (maE_dau«5000) 
real's  liiiiita(3.2XcrTor 

real's  I  dat^xiaaei  da(a),y  datafmax  dsta),cboiee 
re^8<^(10aiS)j<XlOOO),w(lOOaS),a(13) 
c 

character' 50  Bsaaaa.ourfBr.guidf.sfBe.gflle 

lirta  iHfT 

charader'5  surfMa 
character'2  forea 
duncier'l  answer 

c 

integer  ooaB,varLvar2 

integer  is(10Q,S)Jb(l0(XS),id(10(lS),oo_fcns<S)J^tesk; 
comawB  ^ifTf  /  iajhjdlJDo^rcoau^fco 
aumalO 
escroal  aqr^srr 
c 

10  prmt ',  . . . 

prmi'/  MENU 

prtal'.** 

proi  *.  *1  Read  Id  data  Ghs' 
princS  1  OirvaaidMa' 
princ  *,  1  Graph  data  and  curve  fit’ 
prioc*. '4  Bvaluaca  tbs  square  error’ 
print*  ’S.  Write rmuhs to Ue’ 
print*. '4  Creata grapbinf  (Bas* 
print  *,  *7.  Eat  program' 

print '.  . . 

print*.  ” 

prim  *,  “Eoter  sdariim.  ’ 
read*,  choios 
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if  (cboicc.eq.1)  iben 
goto  20 

else  if  (cboice.eq.2)  then 
gp(o200 

ctM  if  (cfaoice.eq.3)  ibcn 
goto  10 

ebe  if  (cboice.«q.4)  tb«a 
goto  67$ 

elM  if  (cbotce.eq.5)  tb«n 
goto  72$ 

els«  if  (cboicc.eq.6)  then 
goco625 

ebe  if  (cboice.eq.7)  iben 
goto  7S0 
ebe 
goto  10 
endif 
c 

c  Tbe  deu  Alee  »re  in  the  form 
c  cduan  no.  item  deecription 
c 

c  1  item  number  for  tbe  data  file 

c  2  angle  of  aueefc. 

c  3  dynamic  preaaure 

c  4  y««in|  moment  oocCTicient 

c  S  rolling  moment  coenkient 

c  6  preaaure  coefficient 

e  7  lift  coefficient 

c  8  drag  coeffideQC 

c  9  pitching  moment  coefficient 
c  10  aide  force  coefficient 

c  11  yaw  angle 

c  12  notuaed  - ao 

c  U  not  uaed - 00 

c 

c 

c  tbe  columa  identifien  for  respective  vaiuea 

20  ibeu-n 

blpha«2 

ilift*7 

idrag«8 

bidewlO 

iroU«5 

ipitcb>9 

iyaw«4 

c 

c  Enter  tbe  name  of  tbe  Gk  containing  tbe  infocmauon  to  guide  tbe  program 
c  (brougb  tbe  dat  uiput  prooeaa. 
c 

write(6^*)'Enter  tbe  guide  Ale  name' 
read(S.3l000)  guide 
wnie(6^31000)  gu*dc 
open(l5.fik»gM»df..mtue»'old') 
c 

c  tbe  main  Ale  oontians: 

c  L  tide  card  to  be  included  aa  a  ootnaaerK  Hoe  ia  tbe  data  atateoenca 
c  2.  neny,  and  ns  the  orders  of  alpbebeta  and  delta  Ate  NOT  USED 
c  3.  nAke  tbe  number  of  Gk  naoMS  to  foKov. 
c  4.  a  Ikt  of  Ak  namea  containing  tbe  data  for  iodkidual  alpha  aweepe 
c  one  Gk  name  per  line 
c 

c  Tbe  output  b  in  tbe  form  of  a  data  amemeHt  for  each  ooeffiekaL 

c 

read(  15. 10000)  tick 
wrice(V)tick 
read(  15.82000)  outfit 
wrice(4*}  OUI& 
read<  15.83000)  naftee 
writ^d^*)  mcCm 
reed(15,*)  nBMiy*ai 
read(15.*)  iMm 

wnte(6^*)  Tbamtiibarof  Oka  »  ‘.oOet 

c 

c  Initklisa  makoijm  velum  CO  sera 
c 

c  open(l2/ik"’dacajdl'4tacuaa 'unknown') 

nptfwO 
k-0 

c 

a_minwt0el5 

b^minwL0el5 

d^^iowL0el5 

a,mas«*L0tt5 

b  OMSW'LOtlS 

d'mazw-L0el5 


do  100  i*  l.nfiks 

read(15.90000,eod»75,erT»85)  (ni«name{il:il).il»l.l9).delia 
wnte(6i,30000)  filename 
open(  HfikvGknameataujea 'old') 
c 

c  muai  add  a  control  aetting  value  to  tbe  beginning  of  each  data  Ale 
c 

do50j-1.60 

read(K».end«75.etT»85)(»(kl).kl«1.13) 

k«k<fl 

afl.k)«i(iaJpba) 

K2.k)-(.l)*»(ibeu) 

i(3.k)wdelta 

if(xf  lk).)LJ.min)  a^minaif  l.k) 
if(i(2.k).lLb_min)  b_min«i(2.k) 
if(if3,k).)Ld_iDin)  d_minwi(3.k) 
if(i(l.k).gLa_fflaa)  a^Diax"i(l.k) 
if(s(2.k).gLb_max)  b_mas*i(2.k) 
if(s(3.k).gt.d.mas)  d  maxwx(3.k) 
w(k.l)-a(ilift) 
w(t2)-t(idnD 
w(k.3)wa(iaide) 
w(k.4)-a(ipiu*i) 
w(k.5)-t(ifoll) 
w(k.6)-a{iymv) 

50  continue 
75  doee<14) 
goto  100 

85  write(6^*)'Havt  bad  an  error  in  reading  '.filename 
doM<14) 

100  continue 
doaefli) 
npawk 


write(6i*)  The  data  varied  ae  fodowe' 
writefdk*)  a^fflin.'  alpha  '.e^maz 
wnie(6k*)  b_tBin.'  beta  ',b_inai 
wnte(6^*)  d_iBia'  delta  '.d_mai 


continut 
goto  10 

200  wnte<V)*^*fbichcaaedoyouwiabtowortwitb7* 
write(6.*)  ’ 
wnte(<^*)  't  Foiad’ 
writefV)  1  FVaal’ 
write<^*)  a  Mkainf' 
read(5,*)  icaae 
if(icaaee^l)tbeo 
call  fisar  (Kane) 
ebe  if  (icaaeeq.2)  then 
call  (loser  (icaee) 
ebe  if  (icaaeeqJ)  tben 
call  miocr  (icaae) 
ebe 

goto  200 
endif 


wnte(h*)'Wbxb  force  ooefPrient  do  you  wiab  to  cum*  Gt7* 

wrice(4^*)  '(Enter  tbe  eorreepooding  number.)' 

wtic«(4*)  1  lift' 

wTiiefd^*)  ^draf* 

writefh*)  *3  bde  tore*' 

wnte<4.*)  '4  pbetamiBomeot’ 

write(6^*)  '5  roikg  moment ' 

write(^*)  '6  yawing  a>oment' 

writefV)  *7  or  greater  for  liatieg  tbe  data' 

read(5.*)  At 

if(iriC|r.6)  ibM 

wnie<6k*)  'Wtaicb  data  do  you  wbb  to  esmtoeT* 
write(6^*)  '(Enter  (be  oonaapoodini  number.)' 
wricefi*)  ^  ift' 
wTite<V)7draf' 
wnce(6^*)  *3  tide  foroe’ 
wnte(6^*)  '4  pbefaing  moment' 
wrila(6v*)  *5  rollng  mornaoi ' 
wricefh*)  '6yiwiD|  momant' 
wnte(  V)  *7  alpha* 
wme(V)  tbM’ 
wnia(V)'9iWk’ 
r«ad(5.*)kmai 
if(icDaJL6)  tben 
do  400ijkwt.iipi8 
wnte(<k*)w(ijk.iemm) 
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eb« 

writc<^*)  *texuB*^«’.iGBai-6 
do  500ijlr*lnpa 
*nre<6^*)  i(;«M-6^ijk) 

500  continue 
end  if 
efee 

i_rcn  ■  ifil 

c  call  bklfwr(inc) 

550  continue 

call  Uuqr  (f3,no_fcn*(int)ji.w(l.int).npti,coef(l.>nt)) 
do  600  ijk«  l.no_fcn»(irit) 

wnte(6^60000)  ijit.ia(ijk.>rit),ib(ijk.irit).id(ijk.irit), 

X  coef(ijk.iGt) 

bX  continue 
^  if 

guio  10 
c 

c  GRAPHED.  AND  SURFER  RLE  CREATION 


62$  wnte(6^*)*Whicbdoyouwantioboldco(Mtant?' 
whle<6i,*)‘  t  alpha’ 
wriie(6k*)’  1  b^' 
wnte<6v*V  3-ddtj’ 
read(S,*)  cone 
c 

«rite(6k*)'What  ■  the  Gnt  wiaMe?' 
wrile(6i,*)'  L  alpha' 

wnie(V)‘  Ib^’ 

wnte(6.«)’  X(kk»' 
read(./)  varl 
c 

wnte(V)'Wbac  m  the  aeoood  vahabteT 
wntc<6i,*)'  L  alpha' 
write(^*)‘  1  b«i»’ 

»nie<i*)'  1  deiu' 
read(5,*)var2 
e 

c  initialae  limiu  otatrii  wkb  variable  ranfea 
c 

litDita(Ul)«a.aia 

lioBi(a(t2)«a_mai 

(iniu(2.2)«b.(nai 

lioita(3,l)ad.aua 

ii(Dita(2.2)ad.inax 


read(S.dOOOO)  aniwer 

iffarunver.eq.'y’  .or.  amwer.eq.  'Y*)  then 

call  genj>ctr(cocf(Liri(),liauu,iGt.cona,varUvar2) 

end  if 


675  cfTOr  •  •qr_erT(^w(l,ifit),npta,coef( 

whte(6^*)  - - 

whte<6^*)  Hw  value  of  r  iquared  h  ’.error 

«rite(6^*)  ’ - - — • 

WT  *e(6^*}’What  do  you  want  nea?* 

wriu^..  i.?efD(M powers  frooibcapproxUnating functions' 

writefV)’  andrtfk.' 

whte<6^*}’  lAddpowera' 

write(6^*V  2^ 

read(5.*)i_taik 

if(  i^tatk.e^l)  ibn 

wnie(6^*)'  What  it  the  smalket  magnitude  you  wisfa  to  keep* 
«hte(6.*)’  in  the  current  fit?* 
read(5,*)  bound 

call  rm_oocf(cDef(tifit),bound.ir>t) 
gotoS^ 

ebe  if  (i_iaak.e^2)  then 
call  addcocf(cDcf(  UiCtXifk) 
goto  550 
else 
goto  10 
end  if 

725  cal)  output(cocf(l,ifj^),ir%erTor) 
goto  10 


10000  fonnatfaSO) 

20000  fonBat(^el5.8l3<^X  eoeC  ia.  ib.  id 12) 

30000  foRBatfS^'readiog  frooi  ’  ,a40) 

31000  focmatfaSO) 

32000  ronBat(S(Uel5.7)) 

60000  fonnatC  fte  oo*'A'  id*'A'  coef* 

X  eUJ) 
aoOOOfonBatfal) 

82000  fomatfadO) 

83000  format(a5) 

89000  foriBatfK'  alpha«'/l(l5.'  bcta<*'.nCli5.‘  dehaa'.f5.2. 

z  ’cocf«'jn(l5) 

90000  fonnai<2s.  19i  U^.2) 

750  STOP 
END 


650  wnte(6k*)The  range  on  the  constant  is:' 
wnte(6^*)iiaii<s(cona,l),'  constant  '.licDits<oons.2) 
«T'te(6k*)  'Do  you  waoc  tu  change  it?* 
read(S.80000)  «Mr 
iffahMvr.eq.'y’  .or.  aoewer.eq.T’)  then 
wnte(V)'What  should  the  lower  value  be?* 
read(5.*)  tiiiii(s(coaa.l} 

should  (he  upper  value  be?* 
read(5,*)  liaiiis(ooas,2) 
goto  650 
end if 

cau  God  j>ts(i,w<  l.ifkXopcsa^datajr_dara.ndaia,M«nita. 
z  coas.virLvai^) 

c 

c  wriu  the  varlaHivs,''jea,  force  or  tDOOMatvafuca,  tod 
c  amhiatad  values  lo  a  data  Gto  for  cvalueciaa  in 'grapber* 

c 

writefV)  ’Do3muapiattoereMaaOraplMr  Okr 
read(  5.80000)  atMir 
if(anaw«r.aq.y  .or.  saeawr  a^T*)  tfaea 
wTica(6^*) ’Eaiar  tfaa  Oa  naaa  wdb  .dah’ 
read(53l000) 

opcn<  tClfBaa^iajGMusw  Vastoowa*) 
do665i«U)daia 

vail  «  evU^acoefftiU  Jcna(ifk)ji_da(a(li)) 
■wrrtef  1032000)  i^da^varUj)jc,daia(var2J)or.dat^iX 
z  valtz.d^eonsj) 


subroutifM  flBarftcaaa) 
iniegv  ia(1006)Jb(10a6),id(100l6Xno.fcas<6) 
coqMcc  /pm  /ia.^id.no_fcosi>i,fca 
incegv  alp.  bac.  dai  ootDh,  note 
rek«8xcoaf(10a6)X5X  rsqr 
integsr  liftdragaida.piichjolonw 
cfaacactar  *  10  for«B»ooatroi 


c  coluon  idamifian 


c  wriu  data  to  a  Gte  for  evaluacioe  of  oooiour  pkMs  in  (be 
c  'surfer' software 

c 

writefV)  1)0  you  want  to  create  a  Surfer  me?* 


open(  1 4>fik  •  IfaBLdat’ status  a 'old’) 

read(K*)  control 

wrice(6*)  control 

re^K*)  focca 

wnte(6^*)  forea 

read(l<*)raqr 

wnia(6*)  rear 


rcad(lV)  fy>fn 


dolSj-1.60 

r«»d(l4,*.end<*25.erT«35)  (t(kl),kl«l,5) 

ia(j.l^)  *  t(ialpfaa) 

ib(j,li/t} «  •(ibM) 

idaiift)  -  «(kleHa) 

zcoef0.1ift)  >  *(11^ 

r)o_fott(lift)  ■  t<ifcni) 

15  continue 
25  cloM(i4) 

55  wnte(^*)*Reeding  fuaLdat' 
c1om<14) 

c  <lo40j  ■  l.no_fcro(lift) 
c  print  *, 

40  continue 


opcn(  Kfile  »  Tixzldai',»utu««  'old') 

re*d(14.*)  control 

wnte(6k*)  control 

reed(  14,*}  force 

wnte(6k*)  force 

rad(14,*)  nqr 

wnie(«^*)  f»9r 

re«d(K*)nofn 


do45j-U«0 

reed(l<*,end*S0,err«51)  (•(kl),kl«L5) 

ta(},dfa|)  « t(ialpbe) 

ib(j,drag}  ■  i/ibeu) 

kl(j,dr«g)  ■  •(iddu) 

zoocf(j.drag}  ■  •(lacO 

no_fcm(dng)  ■  i(ifcm) 

45  continue 

50  doee<i4) 

51  wriie(d^*)'Reeding  fisldec* 
cloee(14) 

c  do  55  j  ■>  l,no_fcna<dng] 
c  print  *,  ieO,dreg)Jb^drag}.idO,dng)jcoefO,dng) 

55  continue 


o(>er/ Hfde* 'nn3.da('4uu»« ’old*) 

read(H*)  control 

write(6^*)  control 

reed(14,*)  force 

%rite(4^*)  force 

re»d(IV)  riqr 

wtelV)  nqc 

read(l<*) 


dodSjal.60 

re«i(14.*.«od«75.erT-T7)  (»(kl).kl- U) 

keOjkfte)  -  KielptM) 
ibO.Mde)  ■  •(ibcca) 
idOjide)  -  •(ideka) 
zcocf(>,Aide)  • 
noJcne(Mde)  ■  t(ifci») 

65  cootiDue 
75  cfc)ee(14) 

77  wnte(V)*RMifc^  SBldM* 
claee(14) 

e  do  00  j  «  too  fSane(iide) 
c  prifN*  ie(j^)Jb(J.iideXidO^)joo^ 

00  ooocioue 


ofwn(  KOe*  11w4  dit*,jtmie«  ’oU*) 

reiid(K*)  oomral 

write(6^*)  ooocroi 

reedvK*)  focee 

write<V)  force 

reed(14.*)reqr 

write(<k*}  nqr 

reed(K*)mte 


do95j«l60 

reMi(H*end*merr-105)  (•(kl).kl«l5) 


>a(j-P*icfa)  ■  »(talpha) 
ib(j, pitch)  »  »(ibeta) 
id(j.pitcfa)  ■  Kiddte) 
zcoef(j.pitdi)  ■  *(0^ 
no_fcne(pitcfa)  ■  t(ifcna) 

9$  conunue 
100  cioee(14) 

10i5  write(6,*)’Reading  rixz4.dat’ 
cloee(14) 

c  do  ilOj  ■  Uoo,fcne(pitcta) 
c  print  *,  ia(j,pltcfa),ib(),pitfifa),id0.pitcfa),2coef(j.pttcfa) 
110  continue 
c 
c 

open(  Kfile*  Tiiz5.dat'.atetue*  'old') 
re3d(K*)cofXrol 
wnte(6^*)  control 
read(K*)  force 
write<6^*)  force 
reed(K*)r»qr 
write(tk*)  riqr 
reed(K*)nofn 
c 
c 

doll5j*U60 

reed(K*.cod*12S.err*lZ7)  (t(kl).kl«U5) 

ie(i.roll)  •  •(ieiphe) 

ib0,roli)  -  Kibete) 

id(j,roli)  *  i(iddte) 

zooef(j,rod)  *  »(izc0 

no^fcne(rQll)  *  i(ifcoe) 

US  continue 
125  dc»e(14) 

127  write(6v*)'Reeding  foaS.det' 
cioee<14) 

c  do  130j  *  l,no_fcm(rofl) 
c  print  *.  is(j,rDa^ib0.rollX>d0.roli),zoocf(i,rDll) 

130  continue 

c 

c 

opcn<  Kfdc  *  Tio6idet '  jtecue  * 'old  *) 

r^K*)coQCrol 

write(6.*)  control 

read(K*)  force 

writ^ft,*)  force 

reed(K*)n<r 

write(k*>r»9r 
rcad(K*)  nofh 
c 
c 

dol4Sj*L60 

reed<  K*.end«  iSaerr*  155)  i$(t  1  ).k  t  *  X5) 
ie(>.yw)  •  •(lelphe) 
ib0,yew)  -  ^ibcu) 

«  •(iddu) 

looefCXyre)  •  •('8cf) 
no_fcne(yev)  *  •(ifcne) 

145  continue 
150  cloee(14) 

155  wTnc<6^*)’Reediog  fiaEd^dei’ 
doee(14) 

c  do  160}  ■  Uw^fcae(}r«v) 
c  print  *.  ieOjrwjjb(jorw)jd(ior«v)Joo^ 

160  continue 
return 
end 


c  FLOZER 


indude  floMT 
c 

c  MISZER 


indude 


c  msoR 


indude  lece^rior 
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SQR_ERR 


'odude  tqr^err.icr 


include  bldpwr 


include  evtaqrfor 


include  poly.for 


include  CTD  coctfor 


include  addoocCfor 


indude  output  for 


indude  fuid^pokfar 


indude  gen^petr 


SVD  SOLVE 


81 


Included  in  this  appendix  are  the  "polynomial  equations"  used  to  predict  the  aircraft  control  and 


stability  derivatives  for  use  in  the  trim  analysis.  Each  set  contains  the  following  information.  The  data 
set  on  which  the  liest  squares  curve  fit  was  accomplished  to  obtain  the  polynomial  coefficients;  i.e.  zero, 
right  horizontal  tail  etc..  The  force  or  moment  coefficient  represented,  the  r  squared  value  calculated  in 
fitting  the  experimental  data,  and  the  number  of  terms  in  the  polynomial.  The  columns  of  the  data  file 
contain  the  following  values: 

1.  Number  of  the  polynomial  term 

2.  Power  on  the  alpha  term 

3.  Power  on  the  beta  term 

4.  Power  on  the  delta  term 

5.  Coefficient  Associated  with  that  term 


Aircraft  Stability  Derivatives 


II  02  00  00  000114791 

IZ  02  01  ooooooooitz 


zero 

iia 

a99e957WD4833 

8 

01  00  00  00  a024259» 
02  00  01  OOQlOIITMM 
03  00  02  OOaQZ2737)5 
04  00  09 

05  00  04  00-.00Q9O4SO 
06  0)  00  moitpottm 
07  01  02  OO-.OOQOlOn 
06  02  00  00-.OOQ2MSS 
zero 
drag 

0999229060971^ 

12 

01  OO  00  00  000999119 
02  00  01  OOaOOQ90617 
03  00  02  000100062931 
04  00  03  00-.0000238Z 
05  00  04  (IO-.00002920 
06  0!  00  00 -.00990749 
07  01  01  00  a000l7652 
09  01  02  00  000006501 
09  01  09  00 -.00001092 
10  01  04  00  .00000963 


UTP 

title 

096699306975102 

8 

01  00  00  00  .00000000 
02  00  01  00 -.01617564 
09  00  02  00  000011201 
04  00  09  00'.00003599 
05  01  OO  00-.00007302 
06  02  ^  00000001572 
07  02  01  OOaOOOOQ599 
06  09  00  00  -  00000196 
zero 
piidi 

09994 19566603 18 
9 

01  00  00  00  000912623 
02  00  01  00-.00972458 
03  OO  02  00-.00697840 
04  00  09  00  000019974 
05  00  04  00  a000l8l26 
06  01  00  00 -.01944657 
07  01  01  00 -.00003131 
06  01  02  QO-.OOOOIOC 
09  02  00  00-.00011202 
zero 
roll 

097146373462692 


01 

00 

00 

ooaoooooooo 

02 

00 

01 

00  ..00206500 

03 

00 

02 

00a00002l89 

04 

00 

03 

OOaOOOQa592 

05 

01 

00 

00a000Q3762 

06 

01 

01 

00  -.00001006 

07 

01 

02 

00000000007 

06 

01 

03 

00000000037 

09 

02 

00 

00000000083 

10 

02 

01 

00000000072 

U 

02 

02 

00  -  00000005 

12 

02 

03 

ooaoooewn 

zero 

yaw 

099450657443165 

01 

00 

00 

ooooooooooo 

02 

00 

01 

00000596800 

(0 

00 

01 

00  ..00006049 

04 

01 

00 

00 -.00009376 

05 

01 

01 

00000006041 

06 

01 

02 

00000000241 

07 

02 

00 

00  .00000379 

06 

02 

01 

00  -  00000559 

09 

(0 

00 

00000000044 

Aircraft  Control  Derivatives 


in 

lift 

a997l04938aSS23 

3 

01  00  00  0ia00«B747 
02  01  00  01-.000072W 
03  00  01  0ia0001<234 
Ifl 

drag 

a9rai474275174 

3 

01  00  00  OiaOO«H450 
02  01  00  oiaoooi04tt 
03  00  01  0ia000a2147 
10 

a09l217a6630928 

3 

01  00  00  <naoooo337» 
02  01  00  OiaOOQaZ327 

03  00  0]  oi-.ooooim 

Ifl 

piccb 

a99732533440233 

3 

01  00  00  01-.OQ220S90 
02  02  00  01..00000tM 
03  00  01  01  .  .00014414 
Ifl 
rol 

a9447l3«314»10 

3 

01  00  00  0ia001242M 
02  01  00  01  ..00001534 
03  00  01  01  ..00000591 
Ifl 

V" 

090067234148107 

3 

01  00  00  OlOOOOllfM 
02  01  00  01..000tMM 
03  00  01  01000000969 

lift 

0999750231 15023 
3 

01  00  00  01000524917 
02  01  00  01  ..00001946 
03  00  01  01000007021 
ital 
dr«| 

099700590429333 

3 

01  00  09  01000023247 
0(2  01  00  01000014775 
03  00  01  01000001671 


>h( 

tide 

099372909655259 

3 

01  00  00  01 -.00099652 
02  01  00  01000001164 
03  00  01  01 -.00001999 
Ibi 
piuh 

099720293330100 

3 

01  00  00  01 -.00712409 
02  01  00  01000000701 
03  00  01  01-  00009962 
Ibt 
roll 

094975039542011 

3 

01  OO  00  01  000052169 
02  01  00  01000000432 
03  OO  01  01000000226 
Ibt 

y»» 

099483418199834 

3 

01  00  00  01000055998 
02  01  00  01 -.00002129 
03  00  01  01000001092 
lie 
lift 

099911019902596 

3 

01  OO  00  01-  00090409 
02  01  OO  01000000181 
03  OO  0)  01-  00009354 
lie 

drag 

099S582646596Z3 

3 

01  OO  00  01000023239 
02  01  00  0100001L567 
03  00  01  01000001097 

He 

akie 

099268940957863 

3 

01  00  00  01000003387 
02  01  00  01  ..00004212 
03  OO  01  01  .00003871 
lie 

piUto 

099929094340029 

3 

01  OO  00  01  ..00017172 
02  01  00  01-  00002018 
03  00  01  01000004164 

Be 

rol 

094950569502171 

3 

01  00  00  01  ..00006718 
02  01  00  01000001683 
03  00  01  01  ..00000630 

It 

ym 

098693954647448 

3 

01  00  00  01  ..00002596 
02  01  OO  01000001228 
03  00  01  01000001053 
(fi 

m. 

099710493885523 

3 

01  00  00  01000808747 
02  01  00  01  ..00007279 
03  00  01  01  ..00016236 
rO 

drif 

099231474275174 

3 

01  00  OO  01000004459 
02  01  00  01000010485 
03  00  01  01  ..00002147 
ffl 
aide 

099121786830929 


01  00  00  Ot -.00005379 
02  01  00  Ot  .00002327 
03  00  01  01  •  00001908 
rfl 

pitch 

099732533446253 

3 

01  00  00  01 -.00220590 

02  01  00  01-.000006a6 

03  00  01  0ia00014414 

rft 

roO 

a9467l363N2610 

3 

01  00  00  01 -.00124298 
02  01  00  0ia0000l534 
03  00  01  01 -.00000591 
rfl 

yww 

099067236168187 

3 

01  00  00  01 -.00011910 
02  01  00  0ia00002654 
03  00  01  0ia00000969 
rbc 
li'* 

a998750231 15023 
3 

01  00  00  0ia0Q524917 
02  01  00  01-  00001946 
03  00  01  01 -.00007021 
rbt 

drag 

a967Q0590428333 

3 

01  00  00  0ia00a23247 
02  01  00  0ia000t4775 
03  00  01  01 -.00001676 
rbt 
tidt 

a9937290i655258 

3 

01  00  00  0ia00090652 
02  01  00  01-  00001164 
03  00  01  01 -.00001998 
rix 
pitch 

099720293330100 

3 

01  OO  00  01-  00712409 
02  01  00  01000000701 
03  00  01  01000009962 
rbc 

ro0 

094875038542011 

3 

01  00  00  01-  00052168 
02  01  00  01 -.00000432 
03  00  01  01000000226 
rlK 
ywr 

098483418189834 

3 

01  00  00  01  -.00055888 
02  01  00  01000002128 
03  00  01  01000001082 

lift 

099842437477^ 

3 

01  00  00  01 -.00082113 
02  01  00  010000083« 
(0  00  01  0100000607 
rta 
drag 

099902917949565 

3 

01  JO  00  01000066338 
02  01  00  01 -.00009976 
03  00  01  01000002005 
rta 


03  00  01  01 -.00002878 

lie 

pitch 

099947325104706 

3 

01  00  00  01 -.00029839 
02  01  00  01-  00001594 
03  00  01  01 -.00004731 

rte 

ro8 

a928l4744695374 

3 

01  00  OO  01000012548 
02  01  00  01 -.00001585 
03  00  01  01 -.00000511 
tie 

yaw 

098461215072914 

3 

01  00  00  01000017089 
02  01  00  Ol-.0OOa3JQ2 
03  00  01  01000001108 
Old 
lift 

099903585  L3Q3S3 
3 

01  00  00  01-  00000361 
02  01  00  01000000247 
00  00  01  01000000177 
f\id 

drag 

097920031383825 

3 

01  00  00  0100002224$ 
02  01  00  01-  00001533 
03  00  01  01000002796 
rud 

Mto 

099435063831380 

3 

01  00  00  01000334111 
02  01  00  01000000440 
03  00  01  01  000000386 
Hid 

099715538778147 
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Introduction 


In  the  quest  to  gain  insight  into  the  nature  of  the  stabilit/  characteristics  of  an  impaired 
aircraft  it  is  necessary  to  derive  the  equations  which  will  describe  a  state  of  equilibrium  for  the  aircraft 
in  flight.  The  derivation  of  these  equilibrium,  or  trim,  equations  will  follow  the  more  detailed  discus¬ 
sion  found  in  [6:203-233].  In  this  chapter  the  nonlinear  equilibrium  equations  for  an  aircraft  in  rec¬ 
tilinear  flight  will  be  derived.  A  functional  relationship  for  describing  the  aircraft  pitch  in  terms 
of  angle  of  attack,  roll  angle  and  side-slip  angle  is  also  derived  for  use  in  Chapter  IV  of  the  thesis. 


Dertvatlon  of  Equilibrium  Equations 

The  following  assumptions  are  stated  at  the  be^nning  of  the  derivation  of  the  airaaft  equa¬ 
tions  of  motion  and  will  be  re-referenced  at  appropriate  points  in  the  derivation. 

1.  The  aircraft  is  assumed  to  be  a  rigid  airframe. 

2.  The  earth  is  assumed  to  be  an  inertial  frame  of  reference. 

3.  The  aircraft  mass  and  mass  distribution  are  assumed  to  be  constant. 

4.  The  X-Z  plane  of  the  aircraft  is  asstuned  to  be  a  plane  of  inertial  symmetry. 

Four  orthogc:  ight  handed  coordinate  systems  are  defined  so  that  the  location,  orienta 

tion,  and  motion  of  the  aircraft  may  be  conveniently  described.  The  aerodynamic  forces  and  moments 
will  also  be  referenced  in  these  axis  systems. 
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Earth  Fixed:  The  earth  fixed  frame  is  rigidly  attached  to  the  earth  and  is  oriented  so  that  the 
Z  axis  is  coUinear  with  the  gravitational  acceleration  vector.  In  light  of  assumption  number  2  this  frame 


is  considered  to  be  an  inertial  coordinate  system. 

Body;  The  Body  frame  is  one  of  three  body  fixed  frames  which  are  defined  such  that  their 
origins  are  rigidly  attached  to  the  center  of  gravity  of  the  aircraft.  The  Body  frame  is  oriented  so  that 
the  X  axis  proceeds  positively  out  the  nose  of  the  aircraft.  The  Y  axis  is  defined  to  be  positive  out  the 
right  wing  of  the  aircraft  and  the  Z  axis  is  located  normal  to  X-Y  plane. 

Stability :  The  Stability  axis  system  is  also  a  body  axis  system  which  is  rigidly  attached  to  the 
aircraft  center  of  gravity.  The  Stability  axis  system  is  defined  by  rotating  the  Body  axis  system  about  the 
Body  Y  axis  until  the  stability  x  axis,  Xs,  is  collinear  with  the  projection  of  the  velocity  vector  on  the  X- 
Z  plane  of  symmetry.  The  Stability  axes  are  denoted  with  capital  letters  subscripted  with  a  small  s.  A 
pictorial  representation  of  the  Body  and  Stability  axis  systems  is  shown  in  Figure  32 


Figure  32  Body  and  Stability  Axis  Systems 
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Wind;  The  last  body  axis  system  defined  is  the  Wind  axis  system.  It  is  defined  by  rotating  the 
Stability  axis  system  about  the  Zs  axis  until  the  x  axis,  Xw,  is  collinear  with  the  free  stream  velocity  vec¬ 
tor  V.  The  Wind  axis  are  denoted  with  capital  letters  subscripted  with  a  small  w. 

Given  a  rigid  body,  Assumption  1,  its  position  and  orientation  in  space  can  be  completely 
described  with  six  coordinates.  For  this  reason,  aircraft  are  often  referred  to  as  six  degree  of  freedom 
systems.  For  aircraft  motion  studies  it  is  usually  most  desirable  to  work  with  a  reference  frame  which  is 
rigidly  attached  to  the  aircraft.  The  Body  axis  system  is  therefore  selected  as  the  coordinate  frame  in 
which  the  derivation  of  the  aircraft  equations  of  motion  will  be  accomplished.  The  aircraft  rectilinear 
velocity  vector  V  and  angular  velocity  vector  £3  are  defined  in  the  Body  axis  system  as: 


V  =  01  -h  VJ  Vk 


(D.l) 


G  =  PI  +  QJ  +  Rk 


(D.2) 


With  these  quantities  defined  the  linear  and  angular  momentum  vectors  of  the  aircraft  are 
defined  as: 

P  =  mV  (D3) 


e  =  I  •  n 


(D.4) 


I  is  the  inertia  dyad  and  for  most  aircraft  it  is  a  symmetric  matrix  of  the  following  form: 


■  I 

-I 

*7 

-I 

ZZ 

1  = 

-I 

I 

77 

-I 

7z 

-I 

i-  zx 

-I 

Z7 

I 

ZZ  •> 

(D3) 


87 


The  definition  of  the  individual  elements  of  this  matrix  may  be  found  in  [6:209-215].  Assump¬ 
tion  3  implies  that  the  mass  in  the  linear  momentum  equation  and  the  inertia  dyad  will  not  vary  with 
time  and  may  therefore  be  regarded  as  constants. 

Application  of  Newton’s  Second  Law  to  the  aircraft  indicates  that  the  time  rate  of  change  of 
linear  momentum  is  proportional  to  the  sum  of  the  externally  applied  forces. 


E 


eart 


dt 


(D.6) 


In  an  analogous  fashion,  the  inertial  time  rate  of  change  of  the  angular  momentum  is  propor¬ 
tional  to  the  sum  of  the  applied  moments  about  the  center  of  mass. 

^  ^  (D-7) 

^  ext  dt 

Note  that  Newton’s  Laws  must  be  applied  in  an  inertial  reference  frame.  The  aircraft  Body 
axis  system  in  general  vidll  be  rotating  and  accelerating  relative  to  the  earth  and  therefore  does  not 
qualify  as  an  inertial  frame  of  reference.  For  this  reason,  it  is  necessary  to  form  the  stated  time  deriva¬ 
tives  in  an  equation  which  relates  the  aircraft  frame  of  reference  to  one  which  is  inertial.  As  stated  in 
Assumption  2  the  earth  will  be  considered  to  be  an  inertial  frame.  The  time  rate  of  change  of  the  linear 
momentum  in  the  Body  axis  system  is  then  [6:211]: 


dt 


p  +  n  X  p 


(D.8) 


dP 

dt 


a  j  • 


il  +  vj  +  wk  +  (tlV-RV)l  +  <ED-P»)J  +  <PV-<)D>k 


(D.9) 
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And  equating  equation  (D.9)  to  the  sum  of  the  externally  applied  forces  yields: 


E  F 


ext 


=  5 


Cu+QV-RV)i  +  (v+Ra-PV)j  +  (w+PV-QU)k 


I 


(D.IO) 


The  time  rate  of  change  of  the  angular  momentum  in  the  Body  axis  system  is  given  as 

=  H  +  O  X  H 
d<I  •  O  > 


dt 


n  X  I 


dt 


O 


(D.ll) 

(D.12) 


The  expression  for  the  dot  product  of  the  inertia  dyad  can  be  expanded  to  give: 


^  <PI 

QI 

RI  >1 

xx 

*7 

xz 

+  <-PI 

+  QI 

-HI  >  J 

yx 

77 

+  <-PI 

-  QI 

+  RI  )k 

zx 

zy 

zz 

(D.13) 


Applying  Assumption  4  implies  that  lyz  =  0  and  that =  0.  Making  these  simplifying  substitutions, 
taking  the  time  derivative  and  substituting  back  into  equation  (D.12)  yields: 


dH 

dt 


*  <PI  -  BI  )i  +  QI _  J  +  <-PI  +  RI  )k 

joc  xTg  yy  xz  zz 

+  n  X  WI  -  HI  )i  +  QI  J  +  <PI  +  HI  „>k|- 
^xx  xz  yy  zzj 


(D.14) 
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When  the  cross  product  is  performed,  the  equation  may  be  split  into  three  separate  scalar  equations; 
one  equation  for  each  of  the  coordinate  directions. 


dHx 

dt 


dHy 

dt 


dHz 

dt 


«  • 


PI  -  RI  -  Q  PI  +  QR  (I  -  I  > 
xx  xz  xz  ^  zz  yy 


QI  +  P^I  +  RPd  -  I  )  -  R^I 
yy  xz  XX  zz  xz 


-  PI  ~ 

zz  xz  yy  xx  xz 


(D.15) 


(D.16) 


(D.17) 


Equations  (D.6)  and  (D.7)  may  now  be  expressed  in  their  component  form  to  issue  the  six  aircraft 
equations  of  motion  in  the  aircraft  Body  axis. 


E  =  -  <U  t  QV  -  RV) 


(D.18) 


r-  F  =2  (V  t  RU  -  PV) 

^  y 


2:  =  =  <V  +  PV  -  QU> 


(D.19) 

tD.20) 


r:  n_  -  PI  -  RI_  -  QPI  _  +  QR  <I_  -  I  > 


xz  xz 


zz  yy 


(D.21) 


P  2 

r  M  =  QI  +  p  I  t  RP  <1^  -  ly  -  R  I  _ 

^  y  yy  ^  **  (d-22) 
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xz 


+  PQ  <I 


(D.23) 


CBV] 


M  = 

z 


RI 


zz 


-  PI 
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I  ) 

XX 


+  QRI 

xz 


The  forces  and  moments  which  are  applied  to  the  aircraft  and  are  represented  on  the  left  hand 
side  of  the  above  equations  will  be  developed  by  the  aerodynamic  characteristics  of  the  aircraft  and  the 
thrust  of  the  engine.  Also  included  in  the  force  equations  will  be  the  force  exerted  on  the  aircraft  by 
gravity.Since  the  gravitational  vector  is  defined  in  the  Earth  Fbced  reference  frame  it  is  necessary  to 
define  a  method  by  which  the  gravitational  vector  may  be  expressed  in  the  Body  frame.  A  transforma¬ 
tion  matrix  may  be  defined  in  terms  of  the  three  Euler  angles;  'F,  d,  and  <p.  ^  is  defined  as  the  aircraft 
heading  angle,  6  the  pitch  angle  and  (p  the  roll  angle.  The  transformation  matrix  between  the  Earth 
frame  and  the  Body  frame,  called  [BV],  is  rather  cumbersome  but  since  it  will  be  needed  at  a  later 
point  in  the  derivation  it  is  defined  now. 


fcasv/  COS0 


slnt(/  coed 


-  sin^ 


cosy/  sliid  sln0  sini|(/  slnd  slii0 

—  sId^  COStp  +  COBI^  COB<p 


COS0  siii0 


(D.24) 


C08\(/  elD0  COB^P 

+■  slnv'  Biwp 


slny  Bind  CO80 
—  cosy/  ain^ 


COS^  COB<p 


Transforming  the  gravity  vector  into  the  Body  axis  system  by  premultiplying  by  [B  V]  provides 


the  gravity  f,:ce  to  be  applied  in  each  of  the  aircraft  force  equations: 


mg  =  ..g  (-sin©  i  +  cus©  sin<A  J  +  cos©  cQ&t>  k> 


(D.25) 


Sirjce  the  investigations  conducted  in  this  thesis  will  be  concerned  with  the  aircraft  in  an  equi¬ 
librium  state,  the  equations  of  motion  are  further  simplified  by  setting  all  of  the  acceleration  terms  to 
zero.  The  resulting  equations  are  the  equations  which  describe  an  aircraft  in  a  state  of  equilibrium  or 
trim. 


+  F.J.  -  mg  sin©  =  ~  (QV  -  RV> 

X  X 


(D.26) 


F_  +  mg  cos©  sln0  = 
Y 


m 


-  <5U 


PV) 


(D.27) 


F.  +  F._  +  mg  cos©  cas^p  =  — 

z 


(PV  -  QD) 


(D.2S) 


QR  (I 

zz 


I 

77 


)  -  QPI 


xz 


(D.29) 


=  P^I  -t-PRd  -I  )-H^: 


xz 


(D.30) 


XX  zz 


xz 


A,,  yy  3CX  xz 


(D.31) 
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The  A  subscripts  indicate  an  aerodynamic  force  or  moment.  At  represents  a  force  com¬ 
ponent  generated  by  the  aircraft  engine.  It  is  assumed  from  this  point  forward  that  the  thrust  vector  of 
the  engine  is  aligned  with  the  Body  X  axis  and  that  therefore  the  Z  and  Y  components  due  to  thrust  are 
zero. 

Several  steady  state  flight  conditions  can  be  described  with  these  equations,  [10,37-39]  For 
rectilinear  flight  all  of  the  angular  rates  are  zero.  In  steady  turning  flight  the  heading  angle  changes  at  a 
constant  rate.  The  third  steady  condition  is  that  of  a  steady,  symmetrical  pull-up  which  is  characterized 
by; 


V  =  P  =  R  =  0 


and  the  wings  level  or  (p  equal  to  zero.  The  studies  conducted  m  this  thesis  are  concerned  with  rec¬ 
tilinear  flight  and  so  equations  (D.26)  •  (D.31)  may  be  further  simplified  into  the  form  b  which  they  are 
applied  b  Chapter  IV. 


+  F  -  mg  sin^ 
I 


+  mg  cos©  CO50 


0 


0 


(D.32) 


(D.33) 


F  +  mg  cos©  coBtp  =  0 


(D.34) 


(D.35) 
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0 


(D.36) 


(D.37) 


Because  of  the  form  chosea  to  model  the  aerodynamic  forces  and  moments,  equations  {D.32)- 
(D.34)  contain  not  only  trigonometric  functions  but  are  also  nonlinear  in  a  andp.  For  this  reason 
these  equations  may  not  be  solved  with  conventional  linear  analysis  techniques  and  will  require  some 
other  method  cf  solution.  This  technique  will  be  developed  in  chapter  IV.  The  technique  will  require, 
at  one  point,  a  functional  description  of  the  aircraft  pitch  angle  which  holds  the  aircraft  flight  path 
angle  at  zero.  This  function  will  now  be  derived 

The  flight  path  angle,  y,  will  be  defined  as  the  angle,  in  a  vertical  plane,  that  the  aircraft 
velocity  vector  forms  with  the  local  horizontal.  For  many  flight  analyses  where  small  angles  are  as¬ 
sumed  the  relationship  between  the  flight  path  angle  and  the  pitch  angle  may  be  expressed  as 

r  ^  e  -  a  (D.38) 

In  general  however  this  relationship  does  not  hold  since  the  aircraft  is  allowed  to  take  on  sig¬ 
nificant  values  of  roll  angle.  For  this  reason  it  is  necessary  to  derive  an  expression  for  the  pitch  angle  in 
teims  of  a,  /3,  and  <p  for  y  equal  to  zero.  To  begin  the  derivation,  two  sets  of  Euler  angles  are  defined. 
The  first  set 

W  e  <p  (D39) 


locate  the  aircraft  Body  axis  with  respect  to  the  inertial  Earth  fixed  frame.  The  second  set 
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yj  =  0 
CO 


(D.40) 


©  =  0 
CO 


(D.41) 


<P  = 

CO 


CO 


(D.42) 


are  used  to  specify  the  Wind  axis  relative  to  the  Earth  frame.  Equation  (D.40)  mdicates  that  a 
specified  heading  has  been  selected  and  equation  (D.  41)  represents  the  flight  path  angle  equal  to  zero 
condition.  An  arbitrary  rotation  of  the  aircraft  about  its  velocity  vector  is  indicated  by  equation  (D.42). 

Equation  (D.24)  represented  the  transformation  matrix  between  the  Earth  fixed  frame  and 
the  Body  fixed  frame.  Since  this  matrix  is  an  orthonormal  matrix,  [2,116]  the  following  relationships 
apply. 


CL]  ^  =  [L]'^ 


(D.43) 


[VB]  =  [BV]^ 


(D.44) 
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Recognizing  that  the  wind  axis  system  is  also  a  body  fixed  system  and  substituting  the  defined 


Euler  angles  to  the  Wind  axis  into  equation  (D.45)  yields 


■  1 

0 

0 

CW]  = 

0 

cos<^ 

-sin* 

CO 

CO 

0 

sln0 

CO 

cos* 

CO  J 

(D.46) 


A  transformation  matrix  may  then  be  obtained  from  the  Wind  axis  to  the  Body  axis  system  in 
terms  of  the  defmed  set  of  six  Euler  angles.  This  matrix  is  obtained  by  postmultiplying  equation  (D.24) 
by  equation  (D.46). 


CBV]  =  [BV]  *  CVV3 


(D.47) 


(D.48) 
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The  transformation  matrix  between  the  Wind  and  Body  axis  systems  may  also  be  expressed  in 


terms  of  a  and  /3  as: 


CBV]  = 


cosa  cos/? 


sin/? 


slnot  cos/? 


-cosa  sln/5 


coefi 


-slaa  sin/? 


-slna 


cosa 


(D.49) 


Equating  equation  (D.4S)  with  equation  (D.49)  provides  the  equations  needed  to  obtain  the 
desired  expression  for  6.  Setting  the  first  column  of  each  matrix  equal  to  one  another  yields  the  three 
equations 


cosd  C06V'  =  cosa  coa/? 


CO80  slnd  cosv'  +  8ln0  sl&v^  =  slna  cos/? 
slrt/p  caexff  aln0  —  co80  8in\(/  ^  sin/? 


(D.50) 

(D.51) 

(D.52) 


Equation  (D.51)  is  divided  by  sin(0)  and  equation  (D.52)  by  cos(0)  to  produce 

COS0  sina  cos/? 

-  slnd  cosy/  +  slny/  =  - 
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(D.53) 


8ln0  sin/? 
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COS0  CO80 


Adding  equations  (D.53)  and  (D.54)  gives: 
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sin©  cosy  =  sines  cos/?  cob0  +  sin/?  sin0  (D.58) 


Equation  (D.50)  provides  the  relationship  that 

cosa  COS/? 


cosy  = 


cos© 


(D.59) 


which  can  then  be  substituted  into  equation  (D.58)  to  provide 
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The  desired  pitch  angle,  to  hold  the  flight  path  angle  equal  to  zero,  in  terms  of  a,  /3,  and  <p  is  then 


B  =  Tan 


r  TalV^  'I 

Tanct  COS0  +  sin0  > 


(D.61) 


APPENDIX  F 

The  three  codes  used  to  perform  the  investigations  of  equilibrium  regions  are  contained  in  this 
appendix.  Autrima.for  represents  Case  A,  Autfimb.for  represents  Case  B  and  Autrimc.for  represents 
Case  C.  A  flow  chart  is  presented  in  Chapter  IV  which  provides  a  schematic  description  of  the  opera¬ 
tions  of  the  codes. 
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real's  rifiiiiiiuinaiii,nidJlc.(le.rtUa,Si(.i4K 

real’s  alplia,biiaAiKPleaia(4),mai(4),dctaio 

real's  iaKIO«)pte(2ai«),idi(20.«),coeb(n<).iM(iKi(<) 

real's  ■aSa(n«)jMk(2lli«)p<aa(n0.eoeaic(2a.«) 

real’s 

real's  iacud(2ll<).iOnid(2aS).i<lnid(2ll«).ooa<ra<l(n«) 
real's  iarfl(n«).iMI(n<)>lrfKm«).<oiM(n4) 
real's  ia(1ii(%<)jbriil(n«)pMl(2R«).<DiCrtil(2ll6) 
real's  ialfl(ia«)jMfl(2ll«).kilfl(2R<).eo^n«) 
real's  iaitai(2ll«XiMbl(2ak«)jdkc(2ll«).OM<fel(lR<) 
real’s  oaa(«)jiMa(«)jiAu<K«)4MK«)4iaa(<).cflla(«) 
real's  nMM(«).iiaii(^cfi4a((),c&(«).ofrud(<),e<i(I(<) 
real's  cM(«).<<ibi(«).<aii(«)rfft(«).iyp^itaiLpiiiU 
real's 

real's  da(0.efbK<).dhK«VA(«).citaUttUfatt4| 
real's  tyjIpnl^alpaaMa—lajta—iOhareaipaiati.mah 
real's  ■ada.MkJaMfUar.aR 


climcur*20 


eUrailO 

eaatoalpa^ 


c  Tbapurpaaaof  tlilapforaaiitoaaintafartiimiokKiaaibir 
c  tbiF-M|i¥iaaniddar(ailiiniiidihaaagao(daaeaiaaaiailiicli 
e  iliii  auilaea  la  loAad  imo  a  •haedwat*  Ukin.  Coaficiiaii  (or  iba 
c  eooipuiatiGaoriirnilirnaairlbfeaaMuitbaiupfliadaidaialllai 
e  ediieli  are  caiad  iaio  auSroudoai  in  Ihia  propran.  Thli  pioyire  iiaiiinai 
c  iiiaad)riMlaceiidllliiaoraliai^fll^aiidlliaHioaafiuparp<iai«ioii 
c  boldaThaLEFSiniebadiiladiadllapnvMiaafuac<iaaa(A.O.A. 
C  WIo|a  Imal  ia  om  aaforeid  aad  lo  in  smeal  ttaa  nS  aa|li 


c  ThavmloaarihapcoBaeBaniiniut&aipacllSidadonBatioaiodaa 
c  OiieibMb  can  baanlmladiaiiihir  SURFER  or  GRAPHER, 
e 

•rite<i') 

wiiu(<k')  ’  AimUMB' 
wrilc(<^') 

eTiu<0’‘ 

eTita(^*)'Flaaiaaoiarttaipariged  rudder  dea  Id  depa:' 

reid(S,*)  rud 

»Tt«a<0” 

wnia((k*) 'Tlaiaa  aDlar  dM  OB  aipba  n  deiK  ’ 

reid(S.’)  ilpeaio 

wti<a(V)” 

wTiia((t')  Tima  aolar  itw  naa  alplia  lo  de|K  ’ 
read(5.’)a|pom 

wrilaCO" 

»nu(i')  ?)am  aolar  Ifaa  loda  for  alpba: ' 

taad(5.’)  loda 

efrda<V)” 

eTiia(<k*)  Ttam  aotar  dM  no  baa  lo  dap:  ‘ 

nad(5.')IWBai 

•rItKi')” 

wTlu(<t*)  TIam  mar  dw  ana  baa  lo  dep: ' 

raad(V)0iimi 

ema(<t*)" 

«cila((t*)  TIam  mar  Iba  Bdator  hao:  ’ 

raad(S.’)  ndb 

wrdalV)” 

•tla(V)” 

ei(<u<4k*) '  Tba  aanodjr  ailacad  ranpa  tor  trim  lewaatipiioo 
airaatelom* 

•ritt(0" 

«flu(<t')  TM  Hrfm:  Ruddir' 

«la(V)" 

>i<u((k')'  Mlo4iba:'.ripala 
•du(f)"  MaaaIpbK'.alpma 
wtiM<0" 

«ilu(4')’  Mhabaai'.baUto 
«rlu(4*)  ’  Maa  baa:',  hanaaa 


wrlu(4k*) 'Eiiiar  a  Oiaam  tor  Ola  aokiiiaaK' 

reid().M0O)lila 

opaollllBa-tiladaiui-'Diir') 
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write(6^*)  'Enter  a  Glenaoc  for  Pbi  contoun:’ 

read(S,5000)  phicoo 

opeo(  i  Lfilc*  p6iGoiMCaaMa 'oevO 


wnteCV)  ’Eoccr  a  fiteoaoM  for  Dng  ooef  ooQtouTK’ 
read(5.5000)  dng 
opeo(l(UUa*dra^atacua>i'oaO 


wnte(^*)  'Eoter  a  fflenase  for  Mean  aileroo  contoun:' 
read(S.5000)  (Mail 

opan(9.filaadalaiUtacuaa 'm«0 


wnte(4*)  ’Eatar  a  fUenaaM  for  control  autbority  contoun:' 
read(5,50CI0)  autb 
opeo(8iGle«autlutacuaa 'naaO 

writafV)** 

wnta(<^*)  ‘Opening  Qe'.tna 

Initialize  tbe  ows  and  mai  coapahaon  vacton 

0110(1)  ■  tfloiiQ 
niin(2)  *  rfliaiQ 
aun(3)  *  Ihtaiio 
aiin(4)  ■  tbcaui 

inaj^l)  ■ 
cdu(2)  ■  ffliBai 
0111^3)  ■ 
aia]^4)  ■  rtMmai 

initialiM  tha  raofH 


ralp  ■((alpwiia  alpmin)/lftda)  >  1 
fb  ■((batmaa  {  aia)/indb)  4-  \ 
1-0 


call  (l)mpna(aaefa.4bar) 

wrfie(V )  niia  vaiua  of  the  dynamic  pcaaam  ^faar 


cbeta  ■  coa(becr) 
ctbt  m  coa(ibtr) 
talp  •  tan(alpr) 
tbet  ■  (an(bc(r) 
c 

c  Calojlate  tbe  aero  foroea  in  tbe  body  z  and  %  aaa  reapactively 
c 

faz  •  »alpha*(*l»(c&(2)4cflla(2)4cfr1e(2))) 

1  ♦ealpha*(-l*(cfc(l)4cOa(l)4-cfr1e(l))) 
faz  •  cal^*(*l*(c£i(2)^cffla(2)^c<He(2))) 

»  ••aJpba»(-l*(cft(l)><ffla(l)*fefrte(l))) 
fay  •  (rfz(3)  ♦  caa(3)  ♦  efria(3)  ♦  cftud(3)) 
c 

c  Calculate  Qrataatimate  of  Phi  from  aide  force  eq 
c 

fgtf  •  %/(-]*fa^ab() 
gotodOO 

dae  ir(fgw.JL>LO)  then 
gotodlO 


pbilf  ■  aain(f^) 
endif 


SO  cpbi  •  coafpbilr) 
ctbt  ■  coa(tbirl) 
ubi  ■  ainftbirl) 
ftx  ■  gv*8ibt  •  te 
pbil  •  pbilr*(tfliypi) 
c 

c  ConatnKttfaaMtbaiidaida  of  tbe  lioem  problem  indi  known 
c  force  and  ny^itww  dai^ 
c 

e  Tbabvacmroontainaibafoloaaogroreaaodmomaottbyrow 
c 

c  L  Normal 

c  1  Pkch 

c  X  Rol 

c  <  Yaw 

c 

b(l)  a  •l*g»*cphf*eibi  •>  te 
dolQOIaU 
aale>3 
naUl 

Kn)  -  -I  •  (c&(a)  +  ca«(a)  ♦  <fi1c(a)  ♦  c<hid(a)) 

TOO  oontatHM 


Caf  io  dM  potyoaoial  pradioar  «(|U*(ioai  for  tiw  forcM 
•ad  BMBWOtt. 


cad  G>u(<iaJtaJdLco<fcoa(aci) 
ad  fodtoC<aHiMWdla.ooa(Knflla) 
cad  Gacte(iark,ibctaJdrta,eiM<c1a,afida) 
cadaaud(ianiditeudjdnid.coc(rad.iifrud) 
cad  fiartOaiftiMUdcfkoaaMIjifrfl) 

cad  EarlxCiiibLMiJdtte,aMWaftte) 
cad  riidn(ialH,iWftidW,«oananaB) 

»nea(4k*)  tUabad  raadiaf  Oaa' 


do200J>Uk 

at  la<(<bar.iMi^la.r1>,r«a.>a*a,Ma,Wa,a> 


c  AiaiianWaihaAMairiaiobauaadiaihalioaarproWea. 
e  Tbiimairliiicoa^juaadofdiaooniriddetbaWBaofdia 
c  cOTindaihaiailbauaadioiaaciaiiiaaofouaa 
c 

cad  flapar(qbara^hacaJacaMlidrtI.oaa&fti>4 
a  cMlccfl) 

cal  aapat(qliarAlpta.liata,iaMI,ddn,iidn,iioafllUda. 

a 

at  btiud(qharAlpta.battjacMJMi(JdrtN.ooa<HiUidic, 

a  cMakccta) 

cal  hntal(9bar,atpt«baiajafoOMfaOdaii,caaai,jifo(, 
a  cfl)i,cli() 


•(IJ)  -  .l'(iIBro*i 
•(U)  -  adl) 
•(U)  -  -I'rffcKZ)' 
•(Ld)-a(U) 


cal  fala^(^tar,l»ha^alana^lanal, land, idiiiiUiiaflud. 
a<hid,4ni<nd) 


domi>u 

a~l  *1 
D  "I  ♦  1 

•(□.U-dlKa) 
•(oj)  ■•»(■) 
•(Dj)  •  caii(a) 
•(0,4)  a  cMKa) 


•Ipr.alidia’Oanm 

baa  •  lMa*(])i/UI) 

Spaciy  dM  Pl^  Path  aa0a  equal  lo  a 
abkli  nplaa  Om  aailaau  of  dMU  ia  a 


r  proMoB  adddi  haa  baaa  cat  up, 


•alpba  •  aiaCalpr) 
caipba  a  eaa(alpr) 
•Maaain(b«r) 


c  SuBupudafareaaduaiaaocawldaflaalona 
c 

fojr  -  (ddO)  4  caa(3)  a  <«a(D  +  efeiidp)) 
fo!r-fore(dato(l)*eafl(J)) 


Cay  -  tiiy  ♦  (d*lu(2)  •  c(tfl(3)) 
fay  -  fay  ♦  (<ldii(3)  •  cflht(3)) 

-  by  +  (dctu(4)  •  cMu(3)) 
c 

c  Sum  up  Nocmal  fora*  due  u>  conDol  defledkioa 
c 

Ua  -  aalpbt’M*(cft(2}+cffie(2)+cfrie(2))) 
a  a- c*l^*(-l*(c^3)'^<dl)e(l)+cfr1e<l))) 
c 

a<l.l)  >  ■l‘cfln(2)*ialpiie  -l*cfla(l)*cilpta« 
a(L2)  -  •l*cftfl(2)*ia<p<i<  -l*cfrfK>rcal|itia 
a(U)  a  -l'cflbt(2)*ialptaa  -l*cfltat(l)*calpbe 
a(L4)  a  •l*c{Hit(2)*ulpba  -l’c(rtit(I)’caipba 
c 

fas  a  ba  a  (ddufl)  *  >(tl)) 
faa  a  ba  a  (deto(2)  •  a(U)) 
faa  a  ba  a  (deha(3)  *  •(U)) 
ba  a  ba  a  (dele»(4)  *  a{L4)) 

c 

c  AdjuM  Pitch  angk  for  tberxw  rod  angle 

c 

thiadj  aialp*(-l*bzi/g*)a(tbet/calptaa)*(-l*by/gii) 
if  (itatad>il.LO)  tbea 
gotodOO 

elte  if  (ibtadj.lt-L0)  iban 
goto  400 
elae 

ihir2Baiin(tbiadj) 

endif 

ctbc  a  oos(tbir2) 


c 

c  Adjuat  Rd  aogla  br  otm  ibeta  and  oomral  daOaecnna 
e 

fg*  a  by/M'p>*eitai) 
if  (rgv.g(.L0)  then 
gplodOO 

eiatir(rfejL-LO)tlMa 

gptoddO 

elta 

ptaO  •  aanfff*) 
com 
c 
c 

affi  a  cqnuptilr-fhiir)’'!) 
etrt  a  a^ftlwt  -  thirt)**2) 
e  «rice(d,*)  The  ecror  ia',eR 

c 

c  Oeieraaina  if  new  phi  angle  iaantbia 
c  .0001  radiana  af  lint  appmiaiiiatiiui 
e 

if  (a.^21)  Uiaa 
goto  523 

elae  iffccrL^OQOl)  than 
ptiiUra  ptaOr 
thtrl  miini 
la  I  a  1 
pan  50 

elae  if(a>r2.p-0001)  tbea 
ptailr  a  ptaOr 
ibcrl  a  ibir2 
aaaa  1 
pxoSO 
endif 
c 

c  PeiecminaiCtfaaajmpuwilaolMtionalnlaieacooitrainiaoo 
c  cnotreliurfina  iallaialnnimlMaadaelaatbaOaacntba 
e  apmptMalle. 

c 

do40tlal,4 

if(deKaO)JLaaia(Q  ar.  da«a(I)«.ma^I))  tbea 
goloSM 

aba 

cam 

400  roiplniia 

c 

450  conlioue 

pba  a  pbibafUbM 

Ibeta  a  ibirrfiaOlpO 
c 


c  writefd") '  ’ 

c  WRJl^  (4*)  The  value  of  tbe  Pitch  Angie  ia;', Ibeta 

c  write  ’ ' 

c  writefdi*)  ’  A  aohition  eiaata  at  tbia  point:' 

c  wrilelh*) 

c  *rile(<t*)’' 

c  writefb*)  'LFL’.deliad) 

c  wrile(<i*) ' ' 

c  iarile<4i*)  'RPL',delta<2) 

c  WTitC(<i*)  ’  ’ 

c  witeff^*)  1Kr,de*a(3) 

c  wiite(4i*) ' ' 

c  »riie(«t*)  ‘RKr.delca(4) 

c  writef^*)  *  * 

c  <nile(<k*) 


deisia  a  (dekafl)  a  delta(2)V2 


cdt  a  cila<2)aa(2)acrud(2)aci4(2)aclle(2)a 
I  cia(2)aci1)K2)adfat(2) 
c 

c  Compute  ibe  aokiiioa  area  aa  of  tbia  peaa. 
c 

t  etal 

alnaraa  a  ta(inda*indb) 
c 

c  ralcuhte  rtmaiaing  pitch  and  rod  authority 
c 

cad  eulboc(cOfl.ctrfl.cQbl.cfrbt,  delta.  reiMn.rauth) 


c  Wriu  output  lode  for  plotting  in  Grapher  or  Surfer 
c 

»riie(U«0000)beiAalpha.iudAlnarea 
writeflldOOflO)  beta,aliihApbi2jud 
•rile(  1040000)  batAalpha:crit,nid 
uritefOdOOOO)  beta.alpba.datomnid 

...ti^^annnii^  a^  p— va 

c 

goto  325 
c 

500  oontiniM 


515  eoatinue 
e  raiitafO*) 


e  nrhefO*)*  NO  SOUmON  ATTHB  POIKT 

c  WRirefO’) 


e 

e 

525 

e 

e 

e 


gMa325 


wiilafV) 


e  wihafO*)'  SOUmONWIU.  NOT  CONVERGE  AT  THIS 
PODfT 

e  WRnEfR*) 


goto  325 


325 


•ritafA*) 

wthefA*)  •  Siaady  bate  M  condMnn  violated* 
wiiiafA*) '  Sabe^  nmt  alpha  vahaa’ 


c  nritafA*)" 

c  erfiia(A*)TbavBluaofalpbaia:  'j|pha 

e  «nia(A*)’niavikiaotbaiab:  ’.bem 

c  etilafA*)  TbanaddardaOaebaaia; '.nad 

c  «rila(*i*) ' ' 

c  WRflBfA'ITIiavbiaaaftbaRoOaiiibb:'^ 


1 


c 

e  Rainitbibaa 

e 

aaO 

c 

300  eonilaua 
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beu  m  bcu  +  indb 


idelu  ■  4 
acf  ■  5 


200  coDiinu* 


lOO  oootiout 
c 

cIom(12) 

d<»«(n) 

dow(10) 

cIom(9) 

claw(8) 


wTUe(ii')  *ni«d«taMirctiitcoa|ilet£’ 
wrii<(<t*)  The  toul  Mhitioa  ara  K'.tliuni 


5000  Poniiat(a20) 

10000  Poniut((S.2) 

20000  Poniut(4(2t.na7)) 

30000  PaciBM(4<r<2)) 

40000  Ponnat(S(r<2)) 

50000  Poniiai(4(UflZ4)) 
60000  Ponii«((9JJ(U(W)) 

stop 

end 


c  DYNPRSS 


subenutint  dynprM<fiindi,q) 
c 

e  Th*  pupoM  of  this  pravaa  is  to  deumim  dinaoic  prasun 
c  baasd  on  lbs  apaeifisdOiglKaMii  number  tod  skitiid*.  It 
c  ■eutmilpVirad'tantouoiitvilueror^ 

c 

pana*lar((niBi>L4^a.0017M4,t  •  525) 
ponoMUr  (ft  ■  3Z174^«53J4) 


e  ee  "  ai|n(|aigaa*rV(e) 
c  vel •  otcb*at 
Cl-  J*rtio*(viil**2) 

wriiefd^*)  -pieaa*  eater  a  vAm  for  o:' 

read(5,*)o 

return 

end 


c  PDCZER 


tubmutine  ttnet<iai,ihi,idi,roeh,nn<na) 

bxeftraipt  bal,  dA  coabt  note 
intefK  lift.dniatde^ubjntjne' 
real's  a(S]kn^ 

rMi*<  ia(n«)Jm(2M)d*(2S<)d>M&(»<)diaAia(«) 

ctaaneur*  lOCoaeateeaM 

cbacMer'll  amm 

ebantaer'doU 

dMnour* 

cbatMar*lid(<) 

dauidIT.T.T/d’.T.V/ 


lift-  1 
dn(-2 
side-) 
pilcb  -  4 

rod  -  5 


e  ooluami  idanliaan 

c 

ifeae  -  1 

ialplie-2 

■beta-] 


old  -  Tiaz' 
eat  -  '  dai' 
dolOOi-U 
name  -  old//id(i)//ca 
open(  Kfile-  ntmejtatiit-  'oid*) 
read(l<10000)oonirol 
c  WTite(6t*)  oooirot 
read(l<10000)  fone 
c  write«t*)  foree 
read(l<*)ii<)r 
c  whte(6t*)  riqr 
rcad(l<*)  noAl 


c 

dol5j-L60 

re»d(l<*,erd-2S,eir-35)  (t(kl)41-U) 

iaa0,i)  -  efialpbe) 

ibiOii)  -  ■(■beta) 

idi(J.i)  -  a(ideba) 

coe&^)  -  i(acO 

nofbofi)  -  sfifent) 

c  wTite(<t20000)  iai(^')dbi(jJ)ddsO,i),oaeCt(J.i) 

15  oootiotia 
25  doee(14) 

35  ooniiaue 
doaa(14) 

100  oootinue 

c  wtitefdt*)  TMthad  in  Paser' 

10000  Pocmat(hul0) 

20000  PonaM(4(hinOL7)) 
racucn 
end 
e 

c  ***********************«**»*»««*««**»***»ft**^9««« 

c  PIXLUB 

e  *******•••••••••*•••••••••••••••••••••••••••••••• 

c 

iuhroutintrMt(hli.iWi,idfc.rntflto.n<fc 

c 

iniefir  %  bet,  del  oomb,  DoAt 

intetm  li^dnsaidakpiieb.rDft]rm> 
real's  1(5),  i»)rjiat(«) 

teal's  iale(2Bl«)dbla(2ft«)JdSe(2ft«).oaefBe(2ft() 

ebataoer  *  10  (onaoonrai 

cbacacier'  11  nama 

cbtraOar'Seld 

ctaacBciar'dms 

diaractar'lid(S) 

dataidn’.T.T’f.y.VI 


lift-  I 
ilras-2 

aide-) 
pdeb  -  4 
rod  -  ) 

ya»-S 

c 

c  column  lianUHma 
c 

dene  -  1 

ialpla-2 

ibeia-) 


illecf-5 

c 

c 

oU-lUV 


do  lOSI-U 
naM-oW/UOy/iaa 
opao(14ila-aamwianm-’oid0 
taad(l<10IW>eanBel 
c  «nis(ft')ooaBnl 
read(I<10aSS!)lbna 
c  >cile(ft')Im 
read(lV)taqr 
c  «nia(4t')  nor 
nad(M')oate 


dol5J-l.<0 

riad(l<',end-2),eer-35)  (t(kl),dl-U) 
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iaile(j,i)  -  Kiaipba) 
ibUe(j,i)  •  t(ibeu) 
idUe(i.i)  -  i(Mkltt) 
oocflMj^)  « 
nfllc(i)  •  Hifcnt) 

IS  OOOtilHM 
25  d0M(14) 

35  writc(4^*)'Rcadin|p',nuDt 
doM(14) 

100  concioiM 

c  wnie(^*)  Ttoiabad  n  Fodte* 
lOOOO  Format(2MlO) 

return 

end 


e  FIXRLE 


lubrouiine  Gsle(iar1e.ibr1e,idi1e.coefr1e,Qfrte) 

inteyeraJp^  bet.  dci  coob.  nofa 
intepr  Utdn^Mlc;piUltjroU,yMr 
reel*8s<5),ti<(r.n<flc<<) 

reat*8  iu1e(20ldXil»rM20ldX>drie<2a6).eoerrte<2Qi6) 

cfaancur  *  10  foroe.ooocrol 

cbaracter*  11  name 

cfaaractcr  *  d  old 

cbarKXer*4ea 

character  *  1  id(6) 

dau  idri’,‘2’.*3\’4‘;S\’67 


lift  -  1 

drag  a  2 
«idea3 

pkeb  a  4 

roN  a  5 

ywad 

c 

e  columa  idcnrifieri 
c 

ifcmai 
ialphaa2 
ibeca  a  3 
eMlaad 
irW  a  5 


old  a  *Qsle' 
cm  a  ’.dat* 
do  100ial,d 
name  a  old//ld(0//A 
opeo(14.filaanameju(uia’old') 
readCUlCOa^oNKral 
c  «rice(4^*)  cooirol 
rBad(H10000)  force 
c  ariccfi*)  forat 
rcad(K*)r«|r 
c  «rite(V)cap 
read(lV)oo6i 
e 
e 

dolijaXda 

i«ad(lV.aada25«ecralS)  (•(klXWaU) 
iartaai)aa(ia^) 

iMa(J,0  •  aCtei) 
kklaCXO  -  aOdata) 
coefirteOO  •  aOctaaf) 
o«e(I)a.(itoi) 

15  fontinua 
2S  duee(14) 

35  aTto(4*)*R  ■■  dhy  *,a^ 
cloae(14) 

100  mmimia 

e  «rfte(4*)TUitedlaMc* 

10000  PocmaKZMlO) 

reom 

cad 


e 


c 


subroutine  risud(iarud,ibnid.»drud.coerrud.nfrud) 

mtefer  alp,  bet.  del.  comb,  nofh 
integar  li^dra^iide.pirrh.roll.yaa> 
real*8  s(5X  nqr.afrud(d) 

r«al*8  iacud(20d).ibrud(20d).idrud(20;dXcoefhjd(20,d) 

character  *  10  foroe.ooncrol 

character*  11  name 

character  *  d  old 

character  *  4  es 

character  *  1  id(d) 

dau  idn*.T,'3’,’4’/S’.*d7 


lifta  1 

drag  a  2 

aide  a  3 
pitch  a  4 
roU-5 

yaaraft 

c 

c  column  identificn 
c 

ifena  a  1 
talpha  a  2 
ibeu  a  3 
ideka  a  4 
itudef  a  5 


old  a  TCBUd’ 
ea  a  '.dat* 
dolOOiaUd 
name  a  old//id(iy/cm 
opea(l<fileaiiamejtaiuaa*old') 
read(  14. 10000)  oootrol 
c  write(^*)  cootroi 
readCHlOOOO)  force 
c  wnte(4^*)  force 
raad(14.*)ri0r 
c  %nte(0)  fiqr 
faed(l<*)  note 


dolSjahdO 

read(l<*.eoda25.erra3$)  (i(klXblaU) 

iarudCXO  •  KMpte) 

ibrudCXO  •  Kibea) 

idrud(Xi)  •  Kidaha) 

coefru^  a  tCirudcO 

nftudfl)  a  ■OfCDS) 

15  onotfaue 
25  doeefld) 

35  vriie(^*)1Uediog;*.iiame 
<iooe(14) 

100  oommue 

c  «ritc(4*)  TWehed  in  Pfcsud* 
lOOQO  Ponnat(?T,il0) 


retun 

end 

c 

c  PDCRFt 

e 

e 

intefv  lip,  bic,  M  cookh  doAi 
inut«  li<tdri»iU.,pilik,roljrn) 

tmft  MKn«)JM(»«).idrtiaa.«xaM(rfK2a«) 

ilmiww  *  10  forotioaiiiral 

cfamtur'll  MW 

etanonr'toU 

diincur*4ai 

cbincarMid(Q 

dw»i<Vl'.T,T.’4',y.W 


lift>l 
dn(a2 
•id*>3 
pilcb  •  4 
roO  ■  5 
jrwraO 


lie 


c  coluoui  kknufien 
c 

item  •  1 
i«lph«  a  2 
ibM  •  3 


idktmS 


otdvYisfl* 
eA  «  '.dac' 
dot00i«U 
naae  ■  old//id(i)//aaL 
opmi(l4,Sk"nMte,suaM»’ctd’) 
read(l<10000)  oontrol 
c  wriie(<i,*)  oootrol 
read(l<10000)  fore* 
c  wrice(^*)  fort* 
r«d(l<*)™qr 
e  writefd^*)  r«qr 
read(l<*)nofo 


<k>15j«UM 

reKl(K*  eod«25.«rr*35}  («(k}Xkl*U) 
>ar(I0.i)  -  Hiaiptaa) 
ibrfKp)  ■  Kibctt) 

^(jtO  *  KalctUi) 

*  •(irfl^ 
nfrfl(i)  ■  aCifcai) 

15  cootioiM 
25  ekae(14) 

35  wnc*(V)'Rc*£e|;',oMM 
d0M(14) 

100  OOQtittM 

c  wnc«(i*)  rnilMd  ia  PM* 

10000  PormAftMlO) 


reaiRi 

cad 


e  FIXLPL 


■utroutintftdflQiiaiWiJftcocfla^^ 

inufir  alpb  bat,  M  aanti,  noCa 
imcfir  lift,dn|fciid*.piuli,ra«,)mr 
rears  1(5),  ni|r,iiaa(<) 

rears  iaia(»S)JSIfl(2a«).i<Sfl(2aSXa>eaKaO 

dunoar  *  tO  rocee,ooa(ral 

cbaracur*  11  oaoia 

cbancur'SoU 

cfaaracur*  4«> 

cimciar*lid(«) 

dauidn’.T.T.’4','S'.'« 


lift-1 

drag  a  Z 
>i<h-3 
pitdl  a  4 

roS  a  5 

ym  a  t 

e 

c  ookiMldadaan 

c 

ireaaa] 


iSM-S 


ou-zur 

esa'^' 

dolSSial,* 
nan  -  ot4l//U(i)//aa 
g;iaii(l<lliaiiaiiia,atan»a  'oU^ 
caad(K10aOOI)oaaM 
c  aiTlla(4t*)  eoarot 
faad(H100SS)  (ana 
e  ainla(4t*)  fona 
nad(K*)  tiqr 
c  aiTlla(4k*)caqr 
raad(K*)  Dote 


do  IS  jal,60 

read(lV,eiJd-25.err-35)  («(kl).kl-l,5) 
iain(j,i)  a  i(ialpba) 

iNfl(),i)  a  i(iheu) 

idin(j,i)  a  ilideka) 
coeflfl^i)  a 
nOnO)  a  ■(Kcna) 

15  cooiinua 
25  dc«c<14) 

35  wriie(^*)'Readin|;’,aame 
doae(14) 

IDO  conlinu* 

c  a(hie(<,*)  Tiniibed  in  Fadfl' 

10000  Foniac(Zkal0) 

reoitn 

end 


c  FDCRHT 


•ubroutina  liarht(iaclit,iMM.idilii.aae(rhi,n(rtii) 
integer  alg,  bae.  dei  ooab,  nofa 
integer  lift.dcageida.piitli.roll.yaa 
real's  i(S).  iaqr.nbbt(d) 

real's  iariic(2ftC).ibriii(20L«).idrt«(2aS).coeblit(20i.«) 

tbacactar  *  10  rona.ooacrDl 

tbaraccar*  11  naoa 

cfaatactcr'dold 

diaracur'dM 

cfatcacur*  lid(<) 

dalaid/*r.T.T.'4’.’S'.’4V 


lifta  1 

drag-  2 
lidaaS 
pitch  a  4 
rallaS 

yaa  a  4 

c 

e  coluiBa  idandOaca 
e 

ifcaaa  1 
ialphaaZ 
ibm  a  5 


ichict  a  5 


olda  Ztehl' 
ca  a  ’.dal' 
dolOOiaU 

naaa  -  old/ftd(iy/cB 
opoiHlddlaaoaMjauBa’aid') 
raad(H10000)  ecearoi 
e  aciia(h*)  ooniral 
read(14.10000)(oraa 
e  aciialh')  (acta 
read(l<')reqt 
e  arieald,*)  lagr 
caad(lV)oate 
e 
e 

dol5ja],<g 

read(K*.nd-25.aeT-15)  (a(kl)jaa  U) 
iartae0d)a,(U|dia) 

ibihi(p')  a  i(Ma) 
idthc(M  a  a(idaha) 
eooOihcUI)  a  a(aii^ 
nfthl(1)  a  c(iiBBa) 

15  coodoy* 

25  doM(14) 

35  aelu(4t*)’Raadkv’.iiaBa 
doaa(14) 
m  toodBiia 

c  aTiiaCO'naiahadiaFWit' 
lOOOO  FatBal(^l<) 


lacm 


c 

e 
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FIXLHT 


c  oofflpute  leading  ed^e  fUp  defVection  in  (kgree* 


Hjbroucim  Gdbt(ialbtjblht,>dlht.coeflht.nflbt) 
integBT  alp,  bee,  dd,  ooob,  ao6i 
integer  lift.dn^eide>p«fdi.rott.yiw 
real*8  e(5),  nqc,nObt(S) 

real*8  ialht(2a8Xibtbt(2a6>.idlbt(20.6).coeflbi(20,6) 
cbaracter  *  10  foroe,ooo(rol 
cbaracter*  11  n«ae 
cbaracta:  *  6  old 
cbaracter  *  4  es 
character*  1  id<e) 
dat- 
c 
c 

lift-1 
drag -2 

side  -  3 
pttch  -  4 
roU-S 

yaw  •  4 

c 

c  coluaia  ideoctften 
c 

ifena  -  1 
iaipha  ■  2 
(beta  -  3 
idelta  —  4 
ilbtcf  ■  5 


if  (aipha.k.*2)  tbeo 
Ik- *2 
rk«.2 

daeif  (alpha.ga.25)  tbeo 
lie -25 
rte-2S 

dee 

ik  «  Ul44*aipha  4>t7 
rk-  Ik 
endif 
c 

c  L'lilaiite  I  vector  f(y’evahtttir*p  ~lyn<MBial 
c 

x(l)  -  alpha 
d2}  -  beta 
*<3)-«a 


c  evaluate  pewdietor  equationa  to  obtain  cocfideQU 
c 

dolOOi-U 
dk(i)  •  ao 
do200j  -  taflk(i) 
fuoe  -  O0,Kidie.iNk.iiaaJ) 
dk<i)  -  cflaCO  eocftleO,i)*ftjae 
200  continue 
100  ooniimie 


c 


c 


old-Tfdbt* 
eM  -  '.dat* 
dolOOi-U 
naoe  -  okV/id(i)/Jem 
opafi(  l<fik  -  QMe^tatue  - 'old  *) 
r«ad(14t 10000)  control 
c  •nte(<^*)  control 
read(14,10000)  foroa 
c  «nte(4^*)  foroa 
raad(lV)«qf 
e  wote(i«)  nqr 
raadClV)  note 
c 
e 

do  15  j-1.40 

read(K*.«nd-2S.acr-35)  (i<kl),kl-U) 
ialbt0,0  -  i(ialp6a) 
ibttKOii)  •  e(ibeu) 

•dttKOO  •  e(ideka) 
ooeQbt(jii)  - 1(1111^ 
nflbi(i)  -  e(ifcaa) 

15  continue 
25  doaa(14) 

35  wTil«(4^*)’ReediDg:'.iiMDe 
cloae(14) 

100  continue 

c  wnte(4k*)  rokbed  in  Fodbt' 

10000  Fonnet(2^al0) 


3^3)  -  rie 
do300i— L4 
crto(0  •  ao 
do400J-  taMe(l) 
rune  -  O0,iUedeibrte,idria,0 
cria(i)  -  crte(l)  ♦  eoe61e(J,0*fhne 
400  oontinue 
300  continue 


e 


dlie(l)*cie(1)*4b«^dog 
ciBe(2)  •  dBa(2)*qb«^di« 
<a9(>)  w  ctta(3)*qliv*ikag 
cflk<4)  -  dk(4)*«|bM««HQg*chonl 
cflk(5)  •  dle(5)*i|bM^wte|*ipen 
cftk(4)  • 


c4rta(l)  •  crte(l)*qher*«ini 
cfi1c(2)  •  qie(2)*nbM*wk4 
clde(3)  •  crie(3)*qberSte» 
c{He(4)  •  <rte(4)*qbK*wlug*chMd 
c6k(5)  -  cx1e(5)*qba(*wteg*ipea 
cfHe(4)  -  c«te(4)*qbaf*«tag*ipea 


return 


luhrowine  kft:9bir,jdpha.te,rte.cflk<ftte.iale.aite 
X  hem,cnefh,alliuartit>rteudrKcoefttejftlB.<ie,<rie) 
e 

e  *nMpurpoaeQfthiapninaiitt>deur«iEMtbeLaidiogEdgi 
e  Flap  eetting  bleed  LEyartwAiing  Pros  cbeaeaeniofi  the  reepeesivi 
e  foree  and  ainwt  dve  are  cahtdated  for  um  in  the  left  band  aide  ot 
e  the  linear  Btpiartnw 
e 

itBpUt  raaTI  (t'hiO-t) 

real  *  8  aaAjlphaJe,rte.cfto(d).crk(dXhecaj(3) 
real*i  ia«e(nd),ible(2ft4),idae(2ft«),coeflk(n<) 
rears  «cM2ftS)Me(20ldXidr1a(2ftS).cooftta(20,<) 
rears  aftK<)»flftM<)^cae(4).cCrte(4) 
p^^tneiar  ( pf  ■  ISQOft  eg  -27.2^  biad-417) 
p«mer(ipM  -2ftftchord«ta937.wtag-30avtad-5<75) 
eflenialO 


The  purpoae  of  (Mi  auhptofraB  k  to  calculate  tbe  veluea  of 
the  force  and  ■o^enicoeflcieBbi  at  the  delta  equaii  aero  oonditioo. 
tbaee  vehiae  are  pteead  in  the  left  bend  b  oaetrii 

iflapddlre^8(»4,»«) 

rears 

rears  alphi,bett43),o(4),e6(d) 

paraMT  ( pr  •  1900ft  eg -27.2011  bttf -417) 

perwitarCy  •2ftft<hord-lft997.«taig-3Qftvt^-54.75) 

etauraalD 

initiailia  I  ~iTmfnrr~ih taring  pnIjTi-Tnial 

)dl>- alpha 
^2)-haia 


c  ev»luaie  predtcior  equauons  to  obtain  coefioenu 
c 

do  100  i«  1,6 
cz(i)  -  <X0 

do  200j  •  l.no6ia(i) 
func  a  O0Aiai.ite,idi,i) 
cz(i)  ■  0(0  *  coc&(j,i)*fuoc 


c  Cafcutote  forces  sod  boomocs  sod  return. 


r“*  V  B"  ~  V5  —  I  ; 

parameter  (ipv)  -  29,0i.cborda  ia937,w»nga  Wvisil  •  54. 75 ) 
resJ*8  iSffl(2a6).ibrO(2a6).Klffl(2a6).coefrn(2a6) 
resl*8  s(phs,bettj<3).crfl(6).c£rfl(6).n£ffl(6).dlfl(6) 
resi*8dn(6) 


do  lOOi-U 

crfl(i)  ■  eo«frfl(2J)*slpta8  ♦  eoe6fl(3.j)*beu 
X  *  oocfirflfU') 

100  eootioue 


c  whce<6,*) ‘tbevskicof  tbe  dra|oo«f  is*.  0(2) 
c£i(l)  a  o(l)*qbsr*wio| 
cfz(2)  a  o(2)*qbsr*wiD| 
c£z(3)  a  a(3)*qbsr*ww| 
c(z(4)  a  o(4)*qb«'*wu)K*cfaord 
c^5)  a  o(S)*qbsr*wtng*ipaa 
c&(6)  a  o(6)*qbsrNfing*spso 
>0000  FoctBSt(4(2i.na7)) 


cfrf)(l)  a  a«(l)*4bor*««c 
cfrfl(2)  a  crfl(2)*qbor*wH)| 
cfHl(3)  a 

cfrfl(4)  a  crfK4)*qb«'*wing*cbord 
cfrfl(5)  a  ar4(^)*qbar*«fing*i(«a 
cfrfl(6)  a  crf)(6)*qber*e4ng*ipeo 


tubroutioe  fsiled(qbsr,slpbs,becs.r\id,isfud,ibrud,idrud,coefrud, 

X  Rfirud,cfiMd.cr^) 

The  purpose  of  this  progroa  is  to  deterraioe  tbe  force  sod  aotoent 
vsluse  for  tbe  faded  coocrcH  aur^oe  for  use  in  tbs  (eft  bsod 
V  a»stf  &  'Ibc  rudder  is  curreotly  proysoMPed 

impttdt  reel*0  (s-h,os) 

penawcer  ( fv  a  I000(i^cga27.208,bcsi|a617) 
persnwur  (speo  a20.0kcfaardaia937,wmga30(XvuilaH75) 
resl*8  ier\KK2a6)dbrud(20L6),idrud(20i6),eoefr^ 
reel*8  stphe.bctsj^3Xct^^cfrud(6),afrud(6Xn^ 
caemelO 


iOfCtsliM  X  ueoor  for  evekiedt^  polyDoatai 

<l)aslpte 
:<2)  a  beu 
]^3)  a  rud 


bnteiHqber,slpba,bett,iarbt,ibrbt,idrb(.a>e£rb(, 
X  nrtM,efi1it.arbi) 


impdcit  reel*!  (e>b.M) 

peniBcierf^a  l900Qteta27.2filLbtada63.7) 
peraseier  (ipeo  a20.Qtcfao(daia937,wiota300tvts>ia$4.75) 
reei*8  isriK(2D^6)MK(2a6),idrte(20t6),eocfrtx(2a^ 
rcel*8  slpb^bao,ertt(^c£fi»(6),afilM(6),(dbt(6) 
reei*8cAc(6) 


do  100  ia  1.6 
crbt(i)  a  ooe6t>C(2,i)*i 

I  *  OCMfrbt(t0 

100  ooodoue 


I  ♦  eoeA1)t(3u)*bcts 


e  evsluec*  predictor  egwKioos  to  obtsio  oocftecocs 
c 

dolOOiaU 
crud(i)  a  00 
do  200  j  a  l.f]6ud(i) 
fuoe  a  C3(jAisnidiibrud,idrud4) 
cnid(0  a  erudfO  *  ooe£rud(i.i)*ftjoe 
200  oomioue 
ino  concioue 


cfri»(l)  a  abc(l)*qtar*«fi^ 
cirbt^  a  abt(2)*qtaar*wiD| 
cfrtat(3)  a  criic(3)*qbar^«iat 
cfrtK(4)  a  ate(4)*qbac^M4Bf*ctod 
c£rbc(5}  a  crtl(5)*qbar*B4pg*ipaa 
ditt(6)  a  c(bi(6)*qbai*«HDf*ipea 


cfhid(l)  a  aud(l)*qbarN4Qg 
cfrud(2)  a  ctud(2)*qber*a4o| 
cfrud(3)  a  crud(3)*qbar*e4Qg 
cihid(4)  a  onad(4)«qteN4af*<bQrd 
cfrud(5)  a  gud(5)*qhex*ahi§*ipaa 
dhMi(4)  a  enad(6)*qhv*v4qg*spM 
ream 


lubrotfiae  flhpsr<qhB.ilpbs.heri.ise<UMI,idtfl,cos<r<l> 

I  orfLcii^cftf) 

Tbe  ptfpoae  of  (bis  proym  is  to  cakuiaas  (be  coocroi 
der6<e(^  for  (be  r1|bt  sod  left  flaperoQ  puaa  s  vakiss 
for^  aipbe.  beta 


rears  fbncdoo  0(^^iaa^idi,fB>) 
uopttdt  r«r  I  (»4vm) 
re^*8i(7) 

pad**  A*)udtoUXiio_iCH6) 

if  0.y  lOO)  «fba(i*)  ERR  •  tadactewl  fincxioa  for  j  a  •  j 

alptaaa^i) 
batta^ 
debs  a  ^3) 

0  apcdy(||(^ J!gb),j^) 

X  *poijr(»(^.fenXbaa) 

s  *poiy(tocM.reBXdito) 

ream 


iaptkit  rears  (s-b,o>t) 


c 

c 

real*8  function  potjKnfncji) 
loipticic  reai*8  (•-h.o-z) 
re^*8QfiQC 
c 

c  Thk  fuoctioa  murm  vakia  of  tbc  Canily  of  polynomial, 
e 

c  nfnc  the  power  to  raiae  z  ux 

c 

if(nfnceq.O)  tbeo 
poJy-lO 

ela« 

if(zcq.aO)  then 
poly-aO 
ebe 

poly«i**nfnc 
end  if 
end  if 
neiurn 
end 


c 

c 


c 

e 


c 

c 


AUTHOR 


Mibroutine  autbor<cflfl.cfrfLcftb(.cfrh(.ddta, 
K  pautfa,nuth) 


implidt  rcal*8  (a^^^i) 

Tbe  purpoM  of  thia  ptogm  b  to  caicuiau  aa  a  percenuge 
tbe  pitch  and  rod  coatrod  authority  reauiaing  after  tb«  A/C 
baa  been  triaiaied  to  aebiewe  equilibriuffl. 


paramater  ( pt  •  1900R  eg  «27.2lOR  htail«^7) 
paraoMCar  (apao  '■29.(l^cbordwl0L937,wtng«30QLvtaila5A7$) 
paraoMter  (fl(naz«20.hciBaxw2S) 
real*8  daaxl(4).dBaX2l(4Xdl(4),(i2(4).(kka<4) 
real*8  cfM(8Xcfrfl(^cfibc(8).€^c(8) 


rtnagwg 
pmag  •  0 

raamaf  m  0 
pfunag  m  0 


dl(l)  •  cfl0(4)«<klta(l) 
dl(2)  •  <irfl(4)«<kha(2) 
d1(3)  •  dlbc(4)«daka(3) 
dl(4)  «  cfrtii(4)«dclta(4) 


d2(l)  •  cflfl(S)*<klia(l) 
d2(2)  •  cfrfl<S)«<klta(2) 
d2(3)  •  cfbi<S)*dalta(3) 
d2(4)  -  cfrtit(S)*<Wia(4) 


diiuutl(l)  ■  cflfl(4)*fhDii 
daual(2}  ■  cM(4)*aBM 
dmaxl(3)  ■>  cflbt(4)*baMB 
daMsI(4)  ■  cfrlK(4)*bCBM 


c 

daa2(l)  -  dMI(5rteH 
dfflax2f2)  -  eM(5rtlHB 
dma]C2(3)  ■  dki(5)*1iiaHi 
<km(i(4)  m  cfrb((5)*baM 


do 

poag  •  pMg  ♦  (dl(0r^ 
ratag  «  mag  (d2(0)**2 
ponag  •  paiBag  ♦  (dBBXl(T))**2 
mmag  •  mnag  ♦  (da»x2(i))**2 
too  ooMioua 


poag  •  aqrtfpng) 
nag  ■  aqrtfnaag) 
pomag  ■  aqrt(paDBag) 
nimag  •  a^maag) 


pauiis  ■  (pmsnag  •  pmagypozmag 
rautta  ■  ((uuuiag •  nsagymunag 


return 

end 


c  SVD_SOLVE 


(ndude  avd_aoKe.for 
Au(rtffla.for 


c  AUTRJMA.FOR 

c  •••••••••••••••••••••••• 

c  27Sepg»SMZ 
c 

implidl  ml*>  (t-lxo-l) 


pwUMUr(f>a  lWMLct-27.2U,blail-63.7) 

I»™mcur  (ifm  -».0icl>oni-ia«7,»ing-300,«ail-S4.75) 
l>*nmcur(liaiB>-2,llaux~25J(liBio--2a.lfliDU»20) 
pbruBcur  (rflaai>-2IXiflflu*20cIbtiiiio*  -2S.lbuux-23) 
P*raaMUr(f1>uaiD>-2S,rbUDn-2SjMdimo— )arudmu-30) 
pMM>iur(rl*ain«-iJ,tieia«i»25,|!i«lU15»Z75 
panmeur  (of  •  <iaiao  •  4) 


reol’8  >«4X<Mu(4Xb(4)jorf«) 
real's  rennin.niiiBa:iru<Ua.riaj4Jfl.lhLrii( 
real's  alplia.ba(aAit^i4join(3Xiiia^}) 
real's  iat(ai(<)Jb((2a().i<it(2l^<),<»c&(2aS).nofaci(t) 
rears  ialla(n<)Ubla(20iS)jdla(2aS).cocflla(ax«) 
real's  iac1a(2ll(C).ibtMn<).iikta<2(lL<).<»a<ric(m«) 
rears  iarud(2a(<)abcud(2asXidnjd(2a<),cx>cfi^2aS) 
real's  lai4K»L<)jMI(2IK<)J<M(n<).eocfr4K2aS) 
rears  iar4>l(%<).M>l(20(S)JdM>i(n<),ci>cfrt>i(2IX<) 
rears  iaia(«<)ibia(24<)>«(n«),cocflfl(2(l(S) 
real's  ■■>t(»<Vblit(2IX<)Jdlii(2(l(S),ooaait(2IX«) 
rears 

rears  a(Ha(«)jga>i(<),cft1a(«Xc(i(<).cfri>d(<XcM(S) 
rears  cfllK<).c(r1l((<^.calt(<),d^(«).nlp.pl)■l^ 
rears  C(4a(«).a(«),auiK<).crt(<).i**(<) 
rears  da(().ctlx(«),cl>i(<),ct(«XMBai,c<li 
rears  jnSainiMndS 
real's  (iiy.f«)iZf<ii2r«r 


diacac<ac'2S  rtin,placrei,ikat<lclaiUuifa 


eaanialpoSp 


c  TbapurpoaaofiblapnftaaaiatoaaanArortriiBaolixioaarar 
c  ibaF-M||nBaniddvEiaiaaaiidlbaaa|Sao(ilfflaetioaKa4itdi 
c  itaiaiiafaeaialiictodiaioa^arSoaat'Ulura.CoaCdaoif  foriha 
c  onn^a«alon(<aaHiiliriiaiairtb»taaMualbeiu|»|iliailMda«a(aaa 
c  aSacbancaMiouwSroiiiiaaataibiapcoftmThiaprairaaaMaiia 
C  a  waail;  Iiali  ouiiiir'iiiiafipai^ai^aaJihatliiiaM'iupaqwaHion 
c  boUa. Tba Hitt padi an^ ia ilMdaad aiiara  Wiap (aval niibi 
c  iaaataa(oteaSiBSaoia|aiatalibaretiD||aaiilba««aaontani 
c  valua. 

c  Tba  Mb  raudna  uaaa  iba  (oSn-Inf  oooirol  tebasM  lo  aaaRb  (or  trinv 
c  Tba  laaifcnadpallaya  COB  baeomrnSaJ  but  are  Ballad  loaymainc 
c  dmlt^n,  tba  nararaa  are  Babad  to  mHaaiioii  a  aSacni 
c  and  Iba  bwiaoidal  oi  b  dUmaM  ao  dial  k  acta  boib  a  an 
c  fireacaraadaaiiaiania 


c  TbaoakreliiaftotaiBibadabavtaarareniabaradM 

c  foSoaa: 

e  L  Laadhi(Ed|aPHb 

c  2.  ASana 

c  X  HreteaidTalAaarea 

c  <  HottaooalTblEltntar 

c 

c  Tblavanleooflbapn>|raaa«Bilttibaipadeadkifaaiaaiiootodaia 
c  Baaiticb  an  bareabiadkialibar  SURFER  at  ORaPHER. 
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wnte(V)’* . . . . . . 

wriie(<i,*) '  AIJTWMA.FOR’ 

wnie(<^*) 

wnte(^*)  ’  ’ 

wriie(^*)*' 

wnie<<^*)  TteMc  enter  tbe  «peci5ed  rudder  defl  in  degi:’ 
read(5,*)  rud 
WTit^<^*)  ' ' 

wnic(6i,*)  Tletee  enter  the  tnin  alpha  in  de^  ’ 

read(5,*)  alpt&io 

wnte<4,*)*' 

whte(6,*)  'Please  enter  the  max  alpha  in  de^  ‘ 
read(5.*)  aipmax 
whie(6^*) ' ' 

»rite(6,  * }  ‘Please  enter  the  index  for  alpha: ' 
read($.*)  tnda 
wnie(<i,*)  ’  * 

write(^*)  ‘Please  enter  the  min  beta  in  degs: ' 
read(5,*)  betoio 
wnte(6^*)  ■  * 

wnte(6i,*)  ‘Please  enter  tbe  max  beta  in  dep:‘ 
read(S,*)  beemax 
wnte(<^»)  *  * 

wnte(<^*)  'Please  enter  ibc  index  for  beta:  * 
read(5,*)  iixlb 
write(<k*)“ 
write(<k*)  ’  ’ 

wnie(<i*) '  Tbe  currently  selected  ranges  for  (hm  investigation 
X  are  as  foUowa:' 
wnte(«^*)  • ' 

wriiefili,*)  ‘Failed  surface:  Rudder* 
whte(A*)  ’  ’ 

writefd^*) '  Min  alpha:’,  slpoia 
wnte(V) '  Max  alpha: alpoax 
wnte<^*)  •  ’ 

wrice(^*)  ’  Min  beta:’. 
wnte(V)’  Max  beta:’,  betmac 
e 
c 
c 

wrtte<b,*)  'Enter  a  (AenacM  for  tria  sohjciona:’ 
read(S,5000)  tTM 
opeei(UU5tee»tfim.faff'Qear*) 
c 
c 

wht«(d^*)  'Enter  a  filename  (or  Pfai  oocKourt:' 
r«ad(S,5000)  phioon 
open(lLCto»phiotMUgatm»‘oear*) 
c 
c 

wnte(V)  ‘Enter  a  fileoaoM  for  Drag coef  contours:' 

read(S4000)  drag 

open(  IQifiteadra^atabJS  « 'fwaO 

c 

c 

c 

write(d,*)  'Enter  a  (or  Mean  aikt'ijo  contours:’ 

read(5,5000)  deW 

opcn(9.fik  ■  ddaMatus*  ‘nePiO 


«Tiie(d^*)  'Eaier  a  eoncrol  autbari^  oootoura:' 

a»d(SJCOCr)mith 

opetKROaaauthMUi^'MwO 

c 

ariw(V)'* 

wnia(<k*)  X^paBiOf  Ot*^ 

c 

c 

c  lokiaiba  tfaa  aip  tod  max  nripiriina  vactoci 

c 

mlo(l)  ■  iMia 
aio(T)  m  rfhaa 
iBio(3)  •  iMaiB 
c 

ma^l) «  deoMi 
maoi(Q  ■  rfhns 
iBaa(3)  ■  IXffln 

c 

e  initiataa  tba  nsfH 

c 

ralp  •((dpMb-dpotaVMi)  ♦  1 
rb  ■((baiaM^ecaiB)Mb)  ♦  1 
x*0 

t«0 


.rail  dynpns<cztach.qbar) 

\tnLe<b,*}  Tbe  value  of  tbe  dynamic  pressure  a. .  qbar 
c 

c  Call  in  ibe  potynoonl  predictor  equations  for  the  farces 
c  snd  momenta 
c 

call  rixzer(iaxjhx.tdaooc£LOofna) 
cad  ridk(iaila,tMla>dllc,cocflie.n(tte) 
call  riaie(iaticibrk.idr1e.coe(r1e.nfrte) 
cad  riaud(iarud,ibrudidrud,ooc£rud.n(rud} 
cad  faBf}(iMflihrflidrfl.oocfr(Ln(rO) 
cad  raql3t(iatlK.ifarhc.idrbcooefrhcn(rbt) 
call  rDd(I(iai(UbeMil(lcoe(Htnfl(I} 
call  fia>bt(  ialbuNbt»idlbt.ooeflbt.n(lbt) 
wntef^*}  Ttnabed  reading  files' 


beta  •  betain 
du2D0j»Ub 
alpha  ■  sipOMO 
do300k«tr*lp 
c 

cad  2ero(qbar,siphabeca.taaibajdz,cocdnofna.cfx. 

X  a) 

cal  tsilad(qbar,aiphabeta.rudj«rud.ibrudidrud  coefrud. 
X  nfruilcfrudcrud) 

c  cal  tbfottte(tbtbtthth.q»>tti.alpha) 


sipr  •  slpha*(piaM) 
betr  •  beu*(p^80) 

c 

c  Inkmi  estiaau  (or  tbeta  a  alpha 

c 

tbtrl  •  alpr 
aaipha  ■  «n(alpr) 
calpha  ■  ooa(sipr) 
sbeta  •  moOMT) 
ebeta  ■  eos(bair) 
ctbt  ■  eos(tbirl) 
talp  •  tao(aipr) 

Lbet  m  tao(bw) 
c 

c  Caktiite  tbe  asro  forces  ip  ibs  body  s  sod  x  uas  laspsr.umly 

c 

Cax  •  tab^*(-l*cft(D)  ♦  calpha*M*cft<l)) 

(ax  •  calp<»*(-l*eCKZ))  •  ■ypha*(-l*eft<  1)) 
tiy  •  (c£i(3)4><*ud(3» 
e 

e  Eatiaaca  Phi  Grom  lida  (orte  aquaboe 

c 

fg*  •  Cay/('l*fe*cibt) 
if  {(pr.p,y9)  Ibeo 
goto  600 

dse  if  (fpiJk-tO)  ttMB 
goto  600 

dM 

philr  •  mo(!pf) 
toM 


SO  qsfai  •  coafphilr) 
ctfac  •  eosfifairl) 

•ifai  •  anfitel) 

(tx  •  ga*iihat  •  bm 
ptel  •  philf'CiaatO 
c 

c  ConHnKt  tfaa  IsfUmod  hda  of  tba  Hnatf  probtaa  Mb  knoan 
e  (orea  sod  ■oaMOX  da^ 

e 

c  Tba  b  vacMr  eoataioB  the  CofcMpg  (ores  sod  moments  by  rov 
c 

e  I  Norad 

c  I  PliA 

c  I  Red 

c  <  Yaw 

c 

b(l) « •l*pr*cpW*cifet'CM 
do'noia  u 
a  *  I  ♦  3 
0  ■  i4l 

b(o)  •  -I  *  (ob(a)  ♦  cfrud(m)) 

700  condoua 
e 

e  AsamabtetbaAnrtKtobeusedlBtfasioemprnNsm. 
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c  This  matni  is  composed  of  ibe  control  derrv^uves  of  ihe 
c  controls  thst  wUI  be  used  to  effect  a  tnm  solution, 
c 

call  nspctfqber.alphs.bett.isrfl.ibrflklrfl.ooefrflorfl 
X  cfritcrfl) 

call  bfztail(qbar.alpha,bcu,iartsi.ibctit.idrb(.ooefrtt.nrht, 
z  cfrbucrbt) 

call  flapet<qfaaf.alpha.beta.Lalfi:blfl.idlfl.coeQfl.nifl. 
z  cfiadO) 

csil  brztad(qbiar.jipha.beca>istt}t,ibUi<.idlb(.coeflbt.nJb(. 
z  c{!hc.dht) 

call  rteffqbar  Jpba.beca»iarie.ibcie,idrte.coefrk, 
z  nc1e.cfrk«crie) 

call  Uef(qbar.ilpha.b^iaUe,iblle.idlle,eoe{Ue. 
z  nlie,cfUe,dle) 

c 

c  Control  denvaiMS  are  put  in  tbe  body  2  azM 

c 

a(l.l)  -  .l*(cflle(2)4cfrie(2))»salpha 
X  •  l*(cf»e<  t)  4>crrk(  l)}*caiptia 

a(l2)  •  •l*(cfrt)(2><fl(l(2))*salpha 
X  •l*(cfrfl(l><fln(l))*calpba 

a(U)  -  -l*(cfrt)i(2)-cflbt<2))*saipha 
z  •l*(c£rbc(l><flbt(l))*eaipha 

s(t4}  •  .l*(cfrht(2)4’cflbt<2))*salpha 
z  •l*(cf^t(l)<scflht(l))*ealptaa 
c 


else  if  (fgw.lt-LO)  then 
goto  600 
else 

phi2r  ■  sstnffgw) 
endif 
c 
c 

errl  ■  sqrt((philr  -  pbi2r)**2) 
errt  ■  iqct((ibtrl  •  thtf2)**2) 
c  M^tef 4c*) 'rise  error  is:'.err 

c 

c  Deteraine  if  oflv  ptai  sngk  is  within 
c  .0001  radisos  of  Cm  sppcoaimatioo 
c 

if  (£.1^21)  then 
goto  $23 

else  if(erTL|LOOOt)  then 
philr  ■  phi2r 
tbtrl  ■  thir2 
1 

gotoSO 

else  if(err2.gL.0001)  then 
philr  ■  p6i^ 
ihtrl  ■  tbtr2 
z  •  a  ♦  ] 
gocoSO 
endtf 


c 


do  8001-  U 
m  ■  1  ♦  3 
n  "  I  ♦  I 

s(n,l)  ■  efUefa)  ♦efrtefa) 
a(rv2)  -  cfrfl(a><flfl(B) 
s(fv3)  -  cfrtit(a><fttic(ai) 
s(n.4)  -  cfrtM(a)>scfbc(a) 
800  ooncioue 


c  SobB  the  Ikiear  proUca  wbseta  has  been  set  up.  Note 
e  that  itM  subroucicM  recures  ^  diffareot  vakia  of  the  a  matrix, 
e 

call  s>it^snf>fa(s.h 


e  Sub  up  side  Caress  due  cn  ooacral  daflaeboos 
c 

fay  •  (c£b(3)  4  dirudfJ}} 

Cay  •  Cay  4  (<Mta(l) « (cas(3)4<fHa(3))) 
tay  •  (ay  4  (delca(2)  *  (c«K3>-cflO(3))) 

Cay  -  Cay  4  (dehaO)  •  (cfrtit(3)-cflht(3))) 

Cay  •  C^  4  (dcka(4)  •  (c{ttM(3)4cnbc<3))) 
c 

e  Sub  up  Normal  CoroB  dut  to  oontrol  daflaeciona 

c 

Caa  -  aalpba*(-l*di(2))  4  calpba*(4*«&(l)) 
a<ll)  -  .l*(<<la(2)4drte<2))*salp*B 
z  •l*(caa(l)4’c6te(l}}*eaipba 
a<1.2)  -  .l*(e«(2Vc«0(2))*aalpht 
z  •l*(cfM(1><flO(l))*GNplM 
a(U)  -  'l*(<frtKa>-dfec(2))*aalpte 
z  •l«(€lrtic(l>eftii(l))«eypba 
a(l.4)  -  •r(cftbc(2)vcabi(2))*aripte 
z  •l*(efrte<l)4cab((l))«ealpte 
c 

Caa -Cam  4  (dated)  •aCU)) 

Caa  -  (aa  4  (date(2)  *  a(U)) 

(tel  -  ba  4  (dtea(3)  •  a(U)) 
eaa-eai4(date(4)«a(l,4)) 

c 

c  Ad^  Pkeb  aogli  lor  tea  oav  rol  aa|M 

c 

ttacadj  •tap*(4*teafpr)4(tea(/calpte)*(4*eay/9a) 
ir(teia4.^1.«)te« 
gaoteO 

eteir(tea4ML-U)tete 

foaodOO 

ete 

tbir2-aaiD(tecadO 

codif 

ettat  -  ooa(teir2) 


e  Ad  jua  Rol  ao^  Cor  oaar  than  and  coterol  dcAaetiona 

c 

Cgw  •  (ay/(-l*fa*ete) 
if(ffa.|g.L0)teaB 
gocodOO 


c 

c 

c  DeteTBiot  if  tea  ooBpucad  aolucioa  violaces  conatraims  on 
c  control  surtsea  defleaioo  Knu  and  write  tee  data  to  tea 
c  apropnataOa. 
c 

do400t-U 

if(dete(T>JUBiD(f)  .or  dcte(I).|Msa^0)  teen 
goto  $00 

ete 


400  coolinua 
c 

c  Cteulau  aquMlant  Hmad  deOactiom 
e 

tet  •  data(3)  4  ddu(4) 
be  -  .t*(dete(3)  •  date(4» 
e 

iff  rbtXjaiD(3)  .or.  rbt|gju43»  teco 
goto  500 

eteif0biJtalo(3)  or.  bL^aai^3))  than 
goto  $00 
ete 
codif 
c 

450  cootioua 

pbi2  •  pte^dSQfp!) 

teau  -  tecr2*(18VpO 


dates  w  (dated)  4  dtea(2)y2 

e 

c 

cdl  -  Gte(Z)4a(2)4«nid(2)4orfl(^4cia(2)4 

z  dO(7)4cibK2)4<teK2) 

c 

e  CoBptea  tea  loiuboo  area  aa  of  tela  paa^ 

e 

1-141 

skm  -  t*nDdB*iDd0) 

c 

c  CaktdacarteMteBiptebaodrolauteariiy 

e 

cal  auteor(dBrfdtfl,dted>tedate.cfla.d6rta. 

X  pauduiute) 

c 

c 

c  Wrteotepui^Ba^P*o*^<BGrapbarorSur(ar 
c 

wTtefUdOWO)  bgte<»Wiirt.teiaraa 
wrte(lLdCIOOO)  balMliteaipia2jud 
wriiadOdOOOO)  baii3ipte,oduud 

wnia(»>dW0te  tem,iipha.diten.nid 
wfte(b<0000)  bBi,il|ite.|BiUti.faiati 

c 

e 

goto  323 
e 
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500  continue 

c 

c 

SIS  coRCioue 

c  wnte(^*) 


c  wte(<v*)'  NO  SOLUTION  AT  THIS  POINT 

c  WR]TE(«^*) 


c 

c 

c  write(<^*)  ’  ’ 

c  wnte(<^*)Tbcvtluco(»lpbaie:  ‘.alpha 

c  write(6^*)  The  value  o(bcu  it:  '.beta 

c  wnie(^*)  The  rudder  deOectionia:'.njd 

c  wTite(h,*)  ‘  ‘ 

c  WRITE  (6k*)  THE  VALUE  OP  THE  ROLL  ANGLE  IS: ’.phi  1 

c  wriu(6k*)'’ 

c  wnie(^*) 


c  %hie(6k*) '  DEFLECTION  UMITS  EXCEEDED* 
c  WRrrE(<k*) 


c  wnte(^*) 

c  wie(V)'’ 

c  wnte(6,*)  'LEF.deka<l) 

c  write(^*)  *  ’ 

c  wnte<A*)  TA’,deha(2) 

c  wnte(6k*)  ’  ’ 

e  wrice(6k*)  'HA*.ddta(3) 

c  wnte(A*)  ‘  * 

c  wrice<A*)  'HE*.delu(4) 

c  vvrite(6k*) '  ’ 

c  wdteCA*) 

80co32S 

e 

S25  ooodnua 

c 

c 

c  wnte(A*) 


c  •rite(h*)  ’  SOLUTION  WILL  NOT  CONVERGE  AT  THIS 
POINT 

c  WRrrE<i*) 


c 

goto  323 
c 

600  ooocimM 

c  •TiC0(6k*)  *••••••••••••••••••••«••••••••• 

c  wn(e(i*) '  Steady  fcau  lift  oooditioQ  viotaiad* 

e  wnte(<^*)  ‘  Selecting  oea  alpha  vatoe* 

c  wnce(6k*)  ******************************** 

c 

c 

323  alpha  -  alplM  >  iodi 

I  ■  0 

c 

300  ooocinue 

c 

beta  ■  beta  *  ndh 

e 

200  ooQtiaiM 


100  noorinuf 
e 

writa(U*)  T^  data  eeawh  he  o  ■pina  * 

c*oae(12) 

c 

claae(ll) 

c 

doae(10) 

c 

■*»•(*) 

dOMCI) 

e 

«tice(4*)  The  dtfa  aeaith  «  oooplaaa.* 


5000  Ponnat(a20) 
iOOOO  PonBaUS.2) 

20000  FonDai(4(^na7)) 
30000  Pormat(4(r4Z)) 

40000  PonBai(5(r42)) 

50000  PormaK4(lx.fU4)) 
60000  Pocmac(r9J.3(U.(9J)) 

MOp 

end 


c  LLEP 


lubroutioe  llef(qbaf.alpha.hwa.iaHf.ihttf.tdlkcocftle. 

X  nlkcftkctte) 
c 

c  The  piupoM  of  thit  pro^vm  it  lo  akulau  ibe  control 
c  dcrivtiMi  for  Um  left  kMUngedgilUpt  given  vtliMt 
c  tor  ^  tlptai^  bet*. 


implicit  real*8  (bfxo-i) 

p*nacur(t*a  IWOllLcg -Z7J0^ huil-blT) 
pinm«<t(ip«i  a29.actionlaia937.Mng-30avtiila54.7S) 
re»l*8  i«lle(2a«).iblle<2a«).idie(2a0.cneflle<2a<) 
rtal‘8  ilpba.l>«uj(3).dlc(i),(ffl^«).nlllc(8) 


do  100 1- U 

cll*(i)  a  oocflk(li)*ilpte  ♦  coeflle(3J)*b«ti 
1  *  coefBefU) 

100  coodout 


c 

cfliefl)  a  dt(l)*i)tac*mi 
cfllt(2)  a  c8t(2)*i|lMr*«li« 
cf1le(3)  a  cl*(3)*qliw*inng 
cflla(4)  a  cl«(4)*qb*(*»iBg*cbord 
crte(5)  a  c8c(5)‘9ttfS4iig«ipta 
cffl«<«)  a  c*i(0*qlMrNm|*ip« 


ratura 

end 


c  RLE)> 


MJlmutioo  iW(q8w.ilpl)abelaiKtiJiciejdrie.oocfirH 
I  n(1>.c<i1t,art*) 
c 

c  Tboputpon  of  diicprofna  It  to  alcutautlM  control 
c  dctlviiMcroril»riibtlMdiagtd|ilIiptpv«oviliMi 
c  for  ^  *lptm>  bnia 


implicit  roT  8  (»4i.o->) 

ptnoaurtpt  a  190081  eg  a27J0ikbuia«3.7) 
p*nmtur(ipca  a2a(icbordaia9(r7.aiaga30avala54.7S) 

rairo  iic4i(2aOiMt(2a«).iMt(2a«Xa>cfrtKn<) 
rttr  8  ifpta,bttM}).<*M«)4«a(0di&1t(() 


dolOOiaU 

aln(i)  a  ooaA5i(Zi-)*ii|*t  ♦  eocfHe(3j)'(Hia 
1  4  cocCrttfU) 

100  coodiiun 


cft1t(t)am1i(t)*plm>*tHi« 
cfita(2)aata(Z)*plac*><a( 
cfrtt(3)a«rtt(3)*.,bti*«*t, 
cti1«(4)  a  eiH4)*qbiC*«ii^i«iotd 
c«c(5)  a  mlt(5)*q0ai*idi«*ipM 
cfttifO  a  c)K«)*qbc>4>in|*tp« 


non 

cod 


c 
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AUTHOR 


FIXIXE 


indude  ri:dk.ror 


subroutioc  au(bor(cflfl,c£rfLcflbt.cfil3Cdeha,c<Ue,c{r1«. 
1  pautkuvutb) 


FtXRLE 


impbcit  real*S  (a-h,oi) 


indutk  fiBla.(or 


Tbe  purpoM  o(  thit  ia  to  calculate  aa  a  peroenta^ 

ibe  pitcfa  and  fott  oootroll  authority  rcfflaining  after  the  A/C 
baa  been  trimiDed  to  achieve  equilibriuoL 


FIXRUD 


paraaetcr  ( gv  «  19000^  eg  ■27.2tt,  btail«63.7) 
parameter  (apaa  •29.ftchord«10l937,wing«>tt.vtail*5A75) 
parameter  (flfflaa«2ftbtmai«2S.kfmaa  *  25) 
real's  diiiaxl(4},diBax2(4Xdl(4},d2(4Xddta<4),dUe(6).cfrle(6) 
real's  cflfl(6).c{rt)(6),cflbc(S).c{rtat(«) 


indude  Gaudfor 

FDOUT. 


rmag  ■  0 
pm«g”0 
niuniag*0 
poumag  0 


dl(l)  -(c<lleC*)+cfrt«<4))*delu(I) 
<ll(2)  -  (rftfl(4)-cflfl(4))*<iefc«(2) 
dl(3)  -  (c{r1u(4)-dlbl(4])*d«lu<3) 
dU4)  -  (del«(4)*ceitt(4))’<lelu(4) 


d2<l)  >(cflk(S)4'Cfrk(S))  *dclu(l) 
d2(2)  -  (cMKS)-cflfl(S))*dclu(2) 
d2(3)  -  (cflrtiKS)<flht(S))*d«lu(3) 
d2(4)  •  (ctrt>i<5)«cabt(S))*dak*(4) 


diB*xl(l)  >(cat(4)4c«t(4))' 
d>iuxl(2)  >  (<Afl(4)-cfla(4))*l 
dauxl(3)  •  (cMc(4><ait(4)) 
diiiaxl(4)  ■  (cfrt>t(4)'»cabc(4))*tai 


dmu2(l)  •(cfl«(S)+<(H4(S))*  k&naz 
dawK2(2)  > 

daiu2(3)  ■  (cfHx(S>caK(^)’bimn 
dffl«i!2(4)  >  (c<Mic(S)4caic(S))*ta(Bin 


dolOOiaiM 

pong  «  poig  ♦  (dl(i))”2 
cinag  •  nnag  *  (d2(i))**2 

I  ♦  (<ta«l(0)*«2 

I  ♦  (<to«i2<i))"2 


pong  “  'V4(FO*l) 

rang  • 

pimnug  ■  iqn(pmami) 
ranag  a  K^nmg) 


end 


DYNPUB 


lodudt  djmgnaior 


••••••••••••••••••••••a 

PDCZER 


indude  ftBar.ft)r 


indude  ftsflidr 
FTXRKT 
indude  Rahtidr 


LEP 


indude  kCfcr 


ZERO 


inchide  senior 


FAILED 


indude  Med  for 


PLAPGR 


flB|Mrior 


HRZTAn. 


iodudt  bmiUbr 


F3 


mdudeOior 


POLY 


iodude  pol)rior 


SV0.90LVB 


inefude  wwfcoix/or 


Auuteeibr 


AUTRiMCPOR 


l70d8PSMZ 

impidiraart  (a-h,p4) 


panoKUr  ( gw  •  1900(X  eg  >27.208,  huil>83.7) 
panmeur  (ipaa  >29.(]^cfaord>  I8937,wmg>30IXvtaii>54.75) 
parameur  (ak  >  10000) 

pataoctar  (1laiiia>-illaiux>25,lfliiiin>-2l2IQi)iaz>20) 
parameter  (rflmii»-20ltflaax>20lllHiBiaa-25,lbtmax>2S) 
parameter  (riiIiBii»-25,riMmai>2SJi>dll  >  Lftiodcl  >  LO) 
parameter  (riefflm>-2,itaeaaa2S,|ii>3,1415077) 
parameter  (at  >  imaiu  a  t) 


real's  a«4X<»«ll»(<).b(4),aer(«) 
real's  rafleBifi,ranma)titid,Uc,tk,rtlI2llbt,rtK 
real's  alpha,beta.ra,c8,rd,fiim(4).ma^4).delma 
real's  iaz(20i6),ila(20lO,idi(2a<),coeb(2ai6).ao(Qa(«) 
real's  >alle(2(ll«).iMe(2a<),idlle(2lll<Xcoe<Ile(a2S) 
real's  iar1e<20.<).>Me(2IX«).i<lrie(20|«).aM(rle(20.«) 
real's  ianid(20l^ibitid(20IS),i<lriKt(20|S),coe<iul(nS) 
real's  iatfl(20l«).ibc<K2ai(),idriI(20|«),coe(rfl(20|<) 
real's  iarbi(2(l|^ibrtu(2a6),i<lttat(20|6),coe(ihi{20|<) 
real's  ialfl(2a6).ibia(20L«).i<llfl(20i<).coefla(28O 
real's  ialbt(2h«).iblbl(24«),idlhi(2ai«).ooeaht(2lli«) 
real's  naie(S),afrie(6),nChiiK<),iiti8(<),nflfl(S),cflle(«) 
real's  nCt1it(<),nflhl(<).c<f1e(i),eta(<).c<hi<l(«),dt8(«) 
real's  cflfl(^c(rtai(^dltat(^eft(^taip,pliil,ptiilr 
real's  er<e(«%(3(«Xcni<l(0)-crO(0)<<:lle(<)ia8el,lfeai,cbet 
real's  clfl(S),crtit(«),eltat(^ct(S),ciiiutlit,thta4 
real's  la»,alpmiii,alpinaali«niin,l>elinaaalnarea,pauili.rauih 
real's  ii)<la,iodbi>><ld,|)lli2r.eir.(llef(2).altiel(40(12) 


vmie(<k*)  ’  Max  alpha:',  alpmaz 
*nte<4,*) ' ' 

wnie(4,') '  Min  beta:’,  beuaia 
wnie(h*) '  Max  beta:',  betmax 
c 
c 

c  The  coniml  nirtaem  in  the  ddia  vector  are  numbered  m 
c  folloai: 

c  L  PortFlapecea 

c  2.  Starboard  Ptaperoa 

c  3.  Port  HonioMal  Tad 

e  4  Starboard  Hcrnoaial  Tail 

c 
c 

wTiie(h')  'Eater  a  rdeaame  for  aim  aohjtiooa:' 
read(;,3t)00)  trim 
opea(12,iae>DbiutatUi>'new') 
c 
c 

c  writefh')  'Eater  a  EteoaoM  for  Phi  contoun:’ 
c  read(5.S00D)  pbleoa 
c  opea(11.fila>phiooautaluB>'nev') 
c 
c 

c  wrilefb,') 'Eatar  a  fSaeame  for  Drag  coef  contoun:' 
c  read(S,500d)  drag 
c  opaafUUae-dr^etaaaw’aaar') 
c 


character' 20  triffl,aotriai,pbiooa,dngdelail,autb 

c 

c 

emcraalO 
emecnal  poljr 


e  The  purpoae  ol  tbm  pro^am  m  to  iiarcfa  for  trim  tokuiont  for 
e  ttaeP-ldgiwaaafalMcoairoleur(aoaaadlbeiaa(iawerwtaieta 
c  ttaia  aurfam  ia  loekod  lata  a  'bardavai'  tailuca.  Tbe  flight  ooaditioa 
c  aodairaaAaaafliuniioaaraipaeifladiapacamaiartiateaMaia. 
c  CoeflcieBia  for  the  oomputatioaofaerodiwamic  totem  muet  be  luppliad 
c  aadau  aim  uhktaaraeMioioiubroutBMta  ttaia  program, 
c  Thie  program  taaiimm  a  aieadyataia  ooaditioa  of  itraigbt 
c  Ai^aadttaatfaaaraupacpoaiiaaataokk.  AlaiioaairelsurCacm 
c  opetaceiadapaadeatlpia  ttaia  program  wbta  the  Ml  vatyiagibraughitaeir 
e  rangaia  one  degree  mtaameuia 
e  Wingi  level  fligbiia  not  eotoaood  la 

c  ttaia  vcraioa  of  HUM  and  ao  the  rol  angle  wig  have  a  aoa  zero  value 
e  Tbe  fligtal  path  aegliiaapeeiCed  at  lara  Ttaia  vecaioa  of  the  propam 
c  will  write  the  output  alpha  beta  apeeeebaie  trim  aokitioaiesat  to  a 
c  data  Gle  for  uaeia  either  SURFER  or  ORAPHER. 


•ritefh')  ’  AiriRIMCFOR' 
writeffv")” 

writefA') 'Fleam  eoiar  tbe  aperiOad  niddar  daO  Id  degai' 
readfS,')  nid 
writefA*) '  ’ 

writef  A*) 'Fleam  eater  tbe  mm  alpha  m  da^  ’ 

read(S,')alpmm 

writefA')” 

eritoCA') 'Fleam  aour  tbe  maa  alptaa  la  dope ' 

reed(S.')alpmaB 

writafA')” 

writefA*) 'Fhma  eoDr  toa  bidm  far  aipba: ' 

teed(S,')ladi 

eritefA')” 

wriieCA*) 'Fleam  eomr  iba  aba  ban  la  degic  ’ 

read(V)banila 

writafA')" 

writafA*) 'Fleam  amar  Iba  mm  bma  to  dagE ' 

tead(V)baw 

writefA')” 

writafA'ITIama  enter  ibatodaa  tor  beta:' 
readfS,')  todk 
WritefA*)  ” 

WritefA*) '  ■ 

wriiafA*)'  Ttaaeunem^aafaeiadiaagm  tor  trim  toveadgaiioa 
aeramtolewa;* 


WritefA*) ' ' 

WritefA*)  Taled  auttaeo;  Ruddar* 
WritefA*)" 

WritefA*)’  MtaalptaK’.tIpmto 


c  writefA*) 'Eater  eOeaema  for  Mean  aileroacoatoun:' 
c  readf  S,5000)  deM 
c  opea(9,flla>dalalUiatua>'nawO 


c  writafA'I'Eaiaraiaaaamefarcooiiolauitaotiqraontoun:' 
c  raadf  S,5000)  auto 
e  opeafAflfa-etaKttalia-  'neaQ 
c 

c  WritefA*)" 

c  wriufA*)'Opaotagflto-,trim 
c 

e  Initialtoattaamiaaadgiaxoompaciaaavactota 
c 

mmfDwIOaria 
miafT)  ■  rtkato 
mio(3)  •  laimia 
miaf4)  •  ibnato 
e 

maafl)  ■  lOmaB 
BiaoAQ  ■  rikma 
mab7)'‘faima 

fflaiA4)  m  thtiM 
c 

c  initialim  iba  raopm 


ca^  -ffalpmaa  tlpmto>lada)  ♦  1 
rb  •((baima>baam)/todta)  *  1 
niew  ((llama -riamiojrin^  *  1 
rito  >  (Otamm- lamtoyiadQ  4  1 

i>» 

i-b 

cvwO 


<»*4toP«(maeb,gbar) 

wrile(A*)  Ttaa  value  of  Iba  dpmtidr  pramuie  ia:’,  gbar 


e  Cai  to  Iba  pn||inriatolptei»rtoraguaiioaa  tor  the  forma 


cal  llimr(lii,>a.ldi.iitafi,ia  die  a) 


calBmlaflatlaJbritvldrtaveoafMaaiMa) 
ealflmiad(lanadJtoiaAidniAeoaftiidadhid) 
cd  flaOfMUiiajdrfUeaMbM) 
ml  fiabl(iaib(JkibOd«,ODaMuftbi) 
cad  lbdn(la«,WMdM,Bna«lidllD 
callM»(told,Mld,liWa,itii(da.idfai) 
erim(A*)T 


c 
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lief  ■  Uetnin 
do20o  a  Urtk 
noi  a  nCQHO 
do  lOOi  a  tnto 
beta  a  henain 
do200jaU« 

•Ipba  a  aipoBia 

do300kai,nlp 

c 

c  Ajaipi  leartint  Edft  Flap  dtftectkim 

c 

dlef(l)  a  Oar 

dkf(2)  a  ricf 

c 

caH  lef(qbar^ph^Ue,rte.cfne,cfHe,iaUe,ibile»kiU«, 

1  b<tt>coaflic.nflte.iaric>ibc1c,idrie.cocfrtc4»frte.ci<<. 

1  crie.dkO 

c 

call  iefo(qbaf.alpha.be>a.ia2,iltt.tdy,qocft.fiQfyKa.cfa,a) 

c 

call  Caiied(qbar.a^)ba,beca,rudtianid,ibrud,idnid,ooefnid, 
z  n£njNiG{hid,cnid) 


c  whce(^*)  Tbe  value  of  alpha  ia:  '.alpha 
c  wTite(V)  The  value  of  beuia:  '.beta 

c  wnte(<^*)  The  nidder  deflectioo  ie;  '.nid 
c 

alpr  a  alpha*(pi/180) 
betr  a  beca*(pi/180) 
e 

c  Specify  the  PKibt  Path  aogle  equal  to  zero 
c  ahicta  ioplMa  fine  eKknau  of  tbeu  ie  alpha 

c 

tbir  a  alpr 
aaipha  *  aiofalpr) 
calptaa  a  coa(alpr) 
sbeta  a  akiCbetr) 
cbeca  a  ooafbatr) 
ctbc  a  ooaftbir) 

ialpatao(hipr) 
tbec  a  taofbeir) 

c 

c  CakulMe  Che  aarofoceoaia  Che  body  taods  aha  rcapaetiveijr 
e 

in  a  aalpha*M*(cft(2)4cfle(2)4>cfrte(2))) 
z  4-  ealpha*(-l«(cft(l)><fle(l)4>cWa(t))) 
ha  a  calpha*(-t«(<fi(Z)4<fle(D>c£ria(Z))) 
z  •  a8l|)ha*M*(<hKt)'«>cQb(l)^^l)» 

(tf  •  (cbO)  4  cflaO)  4  <drte(3)  4  cCcMd(3)) 


f^w  a  eqr/(4*^cdK) 
if(ffw.fLLO)(bea 
potodOO 

elaeir(f|vJL-La)thia 

potodOO 

ehe 

philr-aaio(f^) 

endif 


50  cpM  a  eoafphilr) 
ctht  a  eoafthirl) 

•cht  a  ikKthcrl) 
ftl  a  pBf*alh(  «  Ch 
phil  a  phitr*(1MW 
e 

e  CooatniecthalifthMdhdiofihekMarprDblaBvhhkaoMi 
ferae  and  soaHi  dMk 


e 

c 

e 

e 

c 

e 

e 


Tbehv 


iihe  Colovtap  ferae  and  a 


I  by  row 


L  Nor^ 
t  Pfech 
1  Aol 
4.  Yaar 


e 

b(t)--l*p'*cpld*cihC-fiM 
c  wriie(V)b(l) 
doTOOIaU 

sale) 

O  a  I<fl 

b(a)  a  4  *  (efe(a)  4  eflefn)  4  cftlefa)  4  efrudfa)) 
700  continue 


e 

e  AaeaaMetheAaaaftatobeuaediothetoearproWen 


c  Tbia  matriz  ia  coopoaed  of  the  control  denvauvea  of  the 
c  controh  that  will  be  uaed  to  efTea  a  trim  aoluuoa 
c 

call  fbper<qharjl|iha.haa.tarfl.ibrtUdrfl.cocfrfUffl, 
t  cfrftorfl) 

call  brnaiKqborjlpba.beiajachUbrhc.idrtit.ooefrtac.ofhc. 
z  cfrtH.Gfhc) 

cad  {bper(qborjlpha.beca.iallUblA.idltl.oocflfl,Qlfl. 

z  efULdfl) 

call  bmail(qbvjlpha,beca.ielKjbfeUdU)t.oocfIbc.ofe(. 
z  cfttit.ciK) 


•(tl)  a  •l*cflfl(2)*ialpho  -l^cftndrcalpha 
0(12)  a  .l*<^2)*ahptaa  4*cfrtl(l)*calpba 
a(U)  a  >l*caic(2)*ialp<M  •l*cflbc(2)*calpha 
a(L4)  a  4*c6ht(2)*idphe  •l*cfrtit(t)*calpha 
e 

dottOI-  U 
m  •  /  4  3 

o  a|  e  1 

a(n.l)  a  cfiflfB) 
a(n,2)  a  cfiflfB) 
a(iv3)  a  cflicfB) 
a(n.4)  a  cfrhcfB) 

800  cootioua 


Sobe  the  linear  prohlea  ehkh  baa  been  let  up. 


c  SuBupaideforcaaduetooooiroldeaeecioQo 
c 

lay  a  (cfe(3)  4.  cflleO)  4  c«e(3)  4  cfhid(3)) 
faya^4^(deia(l)*efl0(3)) 

layafejr^(deto(2)*««(3» 

tiyaby4(dolta(3)*cflbc(3)) 

Cqraeqr4>(deto(4)*c«rhc(3)) 

c 

c  Sub  up  Nonoal  fareee  due  to  ccnirol  deftorciona 

e 

(an  a  nlphe*(-l*(cfe(Z)4«aa(2)4c«rk(2)» 
z  4  ea^*(-l*(cfe(t)4<fle(t)4c6te(l)); 
c 

0(1.1)  a  .t*eflfl(Z)*ialpbfl*(ttKl)*chpha 
a(U)  a  .l*c6(l(2)*Hdpfei 
a(U)  a  4*cabl(^)••^te  >t*dfet(l)*calpte 
a(L4)  a  .I*d)rhK2)*ie^  4*cfthi(l)*celp(» 
c 

Can  a  fen  4  (dabad)  *  e(1.2)) 
fen  a  Em  4  (deba^  *  e(1.2)) 
fen  a  cm  4  (daite(3)  *  a(U)) 
fen  a  im  4  (dhB(4)  •  8(1.4)) 
c 

c  AdJunPtahan^foriheBowroiaiiipe 
c 

(hcadf  a(iip«(.i*fen/^)4(thec/ieaipho)*(4*fey/p») 
ir((bcad).p.LO)ihon 
gptotOQ 

«heir(tbca4JL-La)ihaB 

fMoM* 

e<M 

thir2»iiin(thmH) 

am 

olil  a  ea.(ibltZ) 


c  A4|iii(llal«i^eariwvdMliaadeoMretd.flMioa. 
e 

i((f(r.p.La)iba 

■MoM* 

itoVC^F-IL-LQitaa 

|0tti<N 

.IM 

ptaiZr-MkXI^) 

am 


■rl  •  •qn((fUlr  -  pU2r)**2) 
arl  m  i^lCCiMrl  -  diBZ)**2) 
c  ’Ite  «rar  Ik’^ 

c 

e  OMrataVMpUa^iisttia 
c  .UWIndlMiedlmiffnriaMiaa 
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il  then 
*o<o525 

die  i{(arL|>.00in)  tben 
pbilr  •  ptai2r 
itairl  >  th<r2 

1  a  I  + 1 

loco  SO 

dM  if(aT2.|L.oa01)  tben 
pfailr  a  pbi2r 
tbtrl  a  tb<r2 

X  a  »  +  1 

into  SO 
endif 
c 

c  DeunnineiftbeoofDpuudtolulioaviotxieicoaxtninuoa 
c  conirot  xurfxcc  dnfledion  timitx  and  wriue  the  data  to  the 
c  apeoixiate  fik. 
c 

do«)0lal,4 

ir(ddta(l)-ltiBio<l)  .or.  ddU(l).gLinaji(l))  tben 
potoSOO 

ebe 

mdif 

400  contintM 


4S0  continue 

pbi2  a  ptai2r*(18IVpi) 
ibeu  a  ibirrdKVpi) 


e  Check  to  aee  if  tbieiitbe  One  time  tbiapotachae  been 
c  found  if  ao  ya  to  neat  aiptaa 
c 

if  (cv  .eq.  OO)  fo  to  40S 
do475iia  I,* 

if  (albet(il,l),eii  alpha  and.  albet(ii,2).ed.baca) 
a  fXoSIS 
47S  oontioua 


4gS  ce  ace  e  1 
albac(ev,l)  a  alpha 
albetfcvj)  a  beta 


c  Cnntpute  the  aotutkxi  area  la  of  tbia  pace. 


akma  a  <y>0oda'lodb) 
c  writefV)” 

c  edwCk’)  The  value  of  alpha  it;  '.alpha 
c  erritafk*)  The  value  of  beta  ia:  '.beta 

e  nriceCk*)  Tbecudderdeflettioo  h:  '.cud 

c 

c  eriief^*)  Tba  riaf  delleHioo  m  'jUt 

c  wtiufi,*)  ’  ’ 

c  «cica(4t*)Thalifda(lacdooia:'M 

e  eiTiwfV)  ■  ’ 

c  WRrrE(V)ThavyuaaftlieRolditlaia:'.pha 

c  eriiefV)” 

e  WItrre«t*)TbavriuacfiliaFluhAa#aia;'dbaia 

c  wriiafO” 

‘  •Aeiiluafe^ailhhpolhc' 

c  ethafA*)” 

c  •du(<t*)m'4iaka(l) 

c  emia(4t*)" 

c  taclu(V]1tn.'4dM(2> 

c  achaCA*)" 

e  «tlia(A*)'Ufr.Ma(3) 

c  eaMA*)” 

c  ntttefV)  1Ufr.dalla(4) 

e  etitafk*)" 

e  nrhaCA*)  HUlWHUmKHmWWHIWBWga 

e 

e  Wfha  output  ID  Sa  tor  ploitinf  in  Ofiphar  or  Suite 

e 

«dia(U>MM*)  MaAlpha.cud.dnnraa 
e  «rMIl.«aSOO)batkalpha4ihacud 

e  eahafWdOOOV)  bata,alpha.cduud 

c  eakafteOOOO)  baia.alpha,  iltlinn,nid 

e  «dM(A<W01  beta, alpha, pmah.mirti 


C 

c 

c 

goto  325 
c 

500  concintM 

c 
c 
c 

515  cootiiMM 

c  wnt«(<v*) 


c  NOSOUmONATTHlSPOOT 

c  WWTE(«^*) 


gpto325 

c 

c 

525  oootimM 

e 

c 

c  whu((^*) 


c  SC>LUTK>NW11X  NOT  converge  AT  THIS 

POINT 

c  wRrrc(<^*) 


e 

gDio325 

600  cenricut 

c  *************************************** 

c  eiTiia(<t')  ’  Staadp  itaie  lit  condition  violaiad' 

c  eritafh*) '  Silenini  DM  alpha  value' 

c  ante«i*) 

c 

S2S  alpha  a  alpha  *  inda 

c 

c  Rahiitialtta  a 

c 

XaO 

C 

300  oontinua 

e 

heiaa  beta  *  indb 
c 

200  continue 

0 

lief  a  iW  a  indri 
c 

lOO  oontioua 
c 

■efalafeiodi 

c 

20  eondnua 
c 

doaa(12) 
c  doaafll) 
c  doaaflO) 

0  daaa(0) 
c  doaafi) 
c 
e 

ndiafO  Tba  data  taarch  h  eeaaplau.' 
wrfea(A')  Tba  tool  aohitfeo  area  ia:'.ahiarta 
c 
c 

SOOOPemfalO) 

10000  FocwKtSJ) 

20000  Fai«at(4(2kfl»7)) 

30000  Foe«ai(4(H2)) 

40000  PafinaKS<r<2)) 

S0000PorW(4(Un2.4)) 

MOOO  PocteKOLS  J(l«fM)) 


c 

tubmuhna  d|aiptit(Badt^ 
c 


127 


wbnutia*  Bnic(iia,i>«,iili,cocti.no(na) 


FIXLLE 


lubnxitiiM  (Ulc(aikJMIa,idlk,co<aie,aai() 


FIXRLE 


uibnuiiM  (bi<e(iackUtickJdrle,ooc<He.nfric) 


FDCRUD 


wbnuiine  OBUd(iinid,itaud,idnjd.oo(friid,iifrud) 


FIXRFL 


uibrouiiM 


PDCLFL 


mOroutiw  fl^i««.iMn,iJM.g»dia.iifla) 


FIXRHr 


•ubcautiMfiattatO«(tatJMi<Jdrtit,ciM<cbi,iittta() 


FDCLHT 


KilmxitiM  (MhtOifit,iWbiJdfct.an«nh>,iinh>) 


IBP 


■ubnWiiM  lrft«|Nr.ilph«,l«.ik.ca«^iil«,il)li,Mh, 
1  b«a,oaia«,ii(lijaitaJM«,iM,ooiM«,aMa>clib 
X  ct1«,dM) 


wteoiciM  n,ft<  n,Hr<l,aoift<l. 

1 


KRZTAn. 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 


rt»l*8  fuoaioo  0(jAM.ib»id4.fcn) 


POLY 


rtal*8  fuactioo  poly(QCDC4) 


SVD.SOLVB 


:  fvrf_»ofc«(*»bAn.m.Dp.op) 


•ubromiat  fariiil(i|tiir,il|iha,lwrB,iirtiUbttM^ 

I  nttMftbUrtl) 


Bibliography 


1.  Eslinger,  Robert  A.  Multivariable. Control  Law  Design  for  the  AFn/F-16  With  a  Failed  Control  Sur¬ 

face.  MS  Thesis,  AFIT/GE/ENG/84D-28.  School  of  Engmeering,  Air  Force  Institute  of  Tech¬ 
nology  (AU),  Wright-Patterson  AFB,  OH,  December  1984 

2.  Etkin,  Bernard.  Dynamics  of  Atmospheric  Flight.  New  York:  John  Wiley  and  Sons  Inc.,  1972. 

3.  HdwkLiS,  Max  L.  Au  lavestkation  of  the  Departure  ^!cdes  of::  F  4D  Aircraft  From  a  Steady  Sides¬ 

lip  Fhght  Condition.  MS  Thesis,  AFIT/GAE/MC/74-6.  School  of  En^eering,  Air  Force  In¬ 
stitute  of  Technology  (AU),  Wright-Patterson  AFB,  OH,  December  1974. 

4.  Jane’s  All  The  World’s  Aircraft.  1980-1981,  N.  Y.,  Macmillian  Co 

5.  Lipschutz,  Seymour.  Theory  and  Problems  of  Linear  Algebra.  McGraw-Hill  Book  Company,  New 

York,  1968. 

6.  McRuer,  Duane,  et.  al.  Aircraft  Dyanamics  and  Automatic  Controls.  Princeton,  NJ.:  Princeton 

University  Press,  1973. 

7.  Press,  William  H.  et.  al.  Numerical  Recipes.  Cambridge  University  Press,  New  York,  1986. 

8.  Raza,  Syed  J.  Use  of  the  Pseudo-Inverse  For  Design  of  a  Reconfiyurahle  Flight  Contml  MS 

Thesis,  AFTT /GAE/AAy81D-23.  School  of  Engmeering,  Air  Force  Institute  of  Technology 
(AU),  Wright-Patterson  AFB,  OH,  December  1986. 

9.  Reid,  J.  Gary.  Linear  System  Fundamentals.  New  York:  McGraw-Hill  Book  Company,  1983. 

10.  Roskam,  Jan.  Airplane  Flight  Dynamics  and  Automatic  Fliyht  Controls.  Part  I.  Kansas:  Roskam 

Aviation  and  Engineering  Corporation,  1979. 

11.  Ruberttis,  Duane  P.  "Self-Repairing  Flight  Control  Systems  Overview,"  IEEE  NAFCON 1780- 

1286(1983) 

12.  Turhal,  First  Lieutenant  Y.  ErtugruL  Turkish  Air  Force.  Inve-sriyarion  of  F-16  Control  Failures  and 

Optimal  Setting  of  Functional  Controls.  MS  Thesis,  AFTT/GAE/ENG/SdD- 19.  School  of  En¬ 
gineering,  Air  Force  Institute  of  Technology  (AU),  Wright-Patterson  AFB,  OH,  December 
1986. 

13.  Weiss  Jn  et  aL  "Investigation  of  an  Automatic  Trim  Algorithm  for  Restructurable  Aircraft  Control," 

lEEBNAErON.  400-406  (1986) 


129 


1 


Captain  Stephen  Mark 

fn  1980  he  matriculated  into  Grove  City  College  where  he  majored  m  fn«ehanir-al  engineering. 


On  19  May  1984  he  graduated  Cum  Laude  and  received  a  Bachelors  of  Science  degree  and  also  redev- 
ing  his  commission  as  a  Second  Lieutenant  through  the  Reserve  Officer  Training  Corps.  His  first  as¬ 
signment  was  to  the  Air  Force  Armament  Laboratory,  Armament  Division  at  Eglin  AFB.  In  the 
Laboratory  he  worked  first  as  a  Project  Engbeer  and  later  a  Project  Manager  on  the  Advanced  Gun 
Technology  program.  While  at  Eglin,  he  also  spent  a  year  assigned  to  the  Munitions  Division  Plans 
and  Programs  Office  and  performed  a  three  month  assignment  with  the  3201st  ABG  as  the  ROTC  As¬ 
sistant  Held  Training  Officer  responsible  for  planning  and  coordinating  the  ROTC  Held  Encamp¬ 
ments  at  Eglin.  In  May  of  1988  he  reported  to  Wright-Patterson  AFB  triiere  he  was  assigned  to  the  Air 
Force  Institute  of  Technology. 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 


la,  REPORT  SECURITY  CLASSIFICATION 

Unclassified 


2a.  SECURITY  CLASSIFICATION  AUTHORITY 


2b.  DECLASSIFICATION /DOWNGRADING  SCHEDULE 


4.  PERFORMING  ORGANIZATION  REPORT  NUMBER(S) 

AFIT/GAE/ENY/89D-42 


6a.  NAME  OF  PERFORMING  ORGANIZATION  I  6b 


REPORT  DOCUMENTATION  PAGE 


lb  RESTRICTIVE  MARKINGS 


form  Approved 
0MB  No  0704-0188 


6b  OFFICE  SYMBOL 
(If  applicable) 
AFIT/ENY 


School  Of  Engineering  j  AFIT/Et 

6c.  Ac,D^^  Technology  (AU) 

Wrig]it-Patterson  AFB,  Ohio  45433-6583 


3  DISTRIBUTION /AVAILABILITY  OF  REPORT 

Approved  for  public  release; 
distribution  unlimited 


5.  MONITORING  ORGANIZATION  REPORT  NUMBER(S) 


7a.  NAME  OF  MONITORING  ORGANIZATION 


7b  ADDRESS  (Gty,  State,  and  ZIP  Code) 


8a,  NAME  OF  FUNDING  / SPONSORING 
ORGANIZATION 


8c.  ADDRESS  fC/fy,  State,  and  ZIP  Code) 


11  TITLE  (Include  Security  Classification) 


8b  OFFICE  SYMBOL  9  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 
(If  applicable) 


10  SOURCE  OF  FUNDING  NUMBERS 


PROGRAM  I  ''^o;rCT 

ELEMENT  NO  I  NO 


WORK  UNIT 
ACCESSION  NO 


STABILITY  CHARA.CTEEirSTICS  OF  A  COMBAT  AIRCRAFT  IVITH 
CONTROL  SURVACE  FAILURE 


12.  PERSONAL  AUTHOR(S) 

_  Stephen  M.  Zaiser,  Capt.,  USAF 


13a.  TYPE  OF  REPORT  1  3b  TIME  COVERED 

I'lS  Thesis  '"ROm _ 


16-  SUPPLEMENTARY  NOTATION 


14.  DATE  OF  REPORT  [Year,  Month,  Day)  15  PAGE  muNT 

November,  1989  145 


17. 

COSATI 

COOES 

FIELD 

GROUP 

1  SUB-GROUP 

18  SUBJECT  TERMS  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

Aircraft  stability 

Recxinfigurable  Flight  Control  System 

Flinh't"  Pont- ml  Fnr--r;:^rv=>  P:=>-ilnr-c:s 


19  ABSTRACT  {Continue  on  reverse  if  necessary  and  identify  by  block  number) 

In  this  thesis  an  investigation  of  the  stability  characteristics  of  an  aircraft  which 
has  sustained  damage  to  a  primary  control  surface  is  performed.  The  analysis  is  per¬ 
formed  using  wind  tunnel  data  taken  on  an  F— 16  model  in  a  test  performed  by  Turhal. 
The  coupled,  non-linear,  aircraft  equilibrium  ecjuations  for  constant  altitude,  re- 
rtilinear  flight  are  developed  and  analyzed  to  identify  aerodynamic  coupling  with 
implications  for  an  aircraft  with  failed  cxintrol  surface(s).  Regions  in  alplaa-beta 
space  where  ecjuiJ.ibrium  is  obtainable  are  investigated  to  identify  remaining  control 
authority,  drag  characteristics,  and  aircraft  orientation. 


20  DISTRIBUTION /AVAILABILITY  OF  ABSTRACT 
0  UNCLASSIFIED/UNLIMITED  □  SAME  AS  RPT 


22a  NAME  OF  RESPONSIBLE  INDIVIDUAL 

PR.  /"assistant  P: 


21  ABSTRACT  SECURITY  CLASSIFICATION 
□  DTIC  USERS  UNCLASSIFIED 


DD  Form  1473,  JUN  86 


Previous  editions  are  obsolete 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 


